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ABSTRACT 


A graphics software package for TEKTRONIX 4006-1 graphics 
terminal has been designed in SIMULA language and implemented 
using DEC-1090 system as the host computer. It consists of 
two parts. The first part called ’GSIMULA’ deals with 
displaying images of two dimensional objects. The second part 
called 'GRAS* deals with displaying images of three dimensional 
objects. This thesis is concerned with the second part* The 
facilities provided by the package GRAS are: (1) Different 
types of planar geometric projections (2) Instant transformations 
(3) Picture segmentation (4) Hidden line/surface elimination. 

These facilities are made available through a compact 
command set. The package automatically detects and corrects minor 
errors committed by the application programmer* The 
application programmer Is merely warned. Execution is termi- 
nated when the error is severe. For debugging' and checking 
the package, demonstration programs have been developed. These 
demonstration programs illustrate typical usage of most of the 
commands. Except for one procedure, the entire package is written 
in SIMULA, a high-level language and hence this package can 
easily be implemented on any machine that has a SIMULA 
compiler. With minor modifications, the package can be used 
with any other graphic output device. 
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chapter 1 


INTRODUCTION 


The aim of graphics system design is to simplify the 
writing of graphic application programs. A graphics system 
may be defined as any collection of hardware and software 
designed to make it easier to use graphic input and output 
in computer programs. The design of graphics systems is 
a very important aspect of computer graphics. Without such 
systems, graphics application programs would be extremely 
difficult to write; only the most expert programmers would be 
competent to write them, and their rate of software produ- 
ction would be very slow. It is only by constructing 
graphics systems that we make it possible to exploit the 
potential uses of computer graphics. 

1.1 SOFTWARE of GRAPHICS SYSTEM: 

There are two approaches in the design of graphics 
system. One approach is the use of subroutines or procedures 
to access the capabilities of graphics system. The other 
approach is to extend the existing programming language or 
design a new language with special statements and progra- 
mming constructs for graphical input and output. Our 
design is based on the first approach and the resulting 
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graphic^ system is called 1 graphics package r . it consists 
of a set of subroutines or procedures which can be used 
by an application programmer to generate pictures on the 
screen of display devices and to handle graphical inter- 
action* It shields the application programmer from 
needing to know the specific low level architecture of the 
display device and XY— coordinate system of physical screen. 
A programmer’ s model of how the package functions, 
is shown schematically in Fig. 1.1. 

It consists of two major components: Hardware and 
software. The hardware component is the host computer and 
the graphics display terminal; the host’ s CPU and the 
memory shared by CPU and DPU are not shown here to reduce 
the complexity of the diagram. The software consists *f 
three components. 

1. Application Data Structure 

2. Application Program 

3. Graphics system (graphics package) 

The application programmer first constructs an 
application model of the objects that the user will 
manipulate and view, and stores it in application data 
structure. The application model typically contains 
geometric coordinate data that define the shape of the 



normalised Physical Physical Device 

Device Device Coordinates 

World coordinates Coordinates Coordinates 



Fi-g*" 1*1* Programmar* s Model of Computer Graphics 








components of the object, object attributes such as line style, 
color, or even surface texture and connectivity relationships 
and positioning data that define how the components fit 
together. 

Having constructed an application model of the world 
as a set of one or more objects in an application data 
structure, the application programmer describes the model 
to the graphics system through calls to graphic primitives 
such as points, lines, polygons or character strings oriented 
in a three dimensional world. The application program must 
also specify to the graphics system what part of the object, 
seen from what vantage point, is to be displayed and on what 
part of the display surface, image should appear. The 
specification of viewing operation may be thought of as 
adjusting the settings of a synthetic camera. Other calls 
specify the division of the object into logical units i.e. 
segments. 

The viewing operation processor uses the viewing 

specifications, to clip the object primitives against user 

to 

supplied or default view volume boundaries, ^/project the 

to 

object onto a plane surface and then^/map the visible 
portion of the projection into the current viewport. 

Afterwards the output primitives are fed to the DPU code 
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generator DPU code generator, transforms the still 
device-independent specifications of the (clipped) primi- 
tives from normalised device co-ordinates into the device- 
dependent hardware instructions and device coordinates 
of the DPU. The segment functions control the segmentation 
of this DPU 'machine code', and specify to the 'DPU code 
generator’ which segments are to be added, made visible/ 

I 

invisible, translated or deleted. DPU transforms the DPU 
program into the image which later is displayed on the screen. 

1.2 SIMULA AND ITS FEATURES: 

SIMULA 67 is a general purpose high-level programming 
language comparable in power to PL/l or ALGOL 68. SIMULA 
is based on ALGOL 60. With the addition of record oriented 
dynamic memory allocation, reference (pointer) structures, 
sets and queues , text and character handling, sequential 
and direct access input-output, quasi-parallel sequencing 
( co— routine s ) and process (event) oriented simulation capa- 
bilities. Well adapted to structured programming methodology, 
SIMULA 67 will often considerably reduce programming time 
compared to conventional languages like FORTRAN, COBOL, or 
PL/l. SIMULA 67 on DEC SYSTEM— 10 contains two major 
additions to the SIMULA language: a system for separately 
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compiled program modules in SIMULA, FORTRAN, or MACRO-IO 
and a powerful online debugging system, SIMDDT. SIMULA 
compiles at half the speed of the DECSYSTEM-IO ALGOL 
compiler. The CPU time, when running SIMULA programmes, 
is about the same as for ALGOL, faster for input-output 
and text string handling, slower for stack oriented memory 
allocation. 

1.3 STATE OF THE ART OF THE GRAPHICS PACKAGES: 

Some of the most popular graphics packages are 

1) GINO : Computer Aided Design Centre; Cambridge; 

England. 

2) CALCOMP : California Computer Products Inc, Arrahelm 

3) PL0T10 : Tektronix Inc; Beaverton. 

4) IGS : Computer Centre; University of Michigan 

5) TENEX E&S DISPLAY SOFTWARE : Bolt Beranek and Newman; 

Cambridge , 

6) OMNIGRAPH : Xerox Palo Alto Research Centre. 

7) GPGS : University of Nijmejen; The Netherlands 

8) DISSPLA : Integrated Software System Corporation, 

California . 

The packages IGS and TENEX E and S DISPLAY SOFTWARE are 
based on the use of structured display files. 
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The packages 'GINO, QMNIGRAPH , GPGS and DISPLA' offer some 
degree of device independence at application programming 
level. 

With a view to make application programs portable, a standard 
called ‘Core Graphics System* was developed by 'Graphic 
Standards planning Committee* of ACM/SIGGRAPH in 1977 and it 
was refined in 1979. 

There have been a number of efforts to extend 
standard high-level programming languages such as FORTRAN, 
PL/l, ALGOL 68 and PASCAL with graphics data types and 
operates to provide a more consistent and more elegant 
interface to graphics system than provided by a subroutine 
package. 

1,4 OBJECTIVE AND SCOPE OF THE PRESENT WORK: 

Many kinds of computer input and output are now a days 
programmed in standard ways, using high-level programming 
languages. For example, languages like PASCAL, SIMULA 
include facilities for file input and output and for handling 
interactive terminals. The ability to express such operations 
within a standard high-level language makes the programming 
much easier agd permits the resulting programs to be run on 
a wide variety of different computers. We would like our 
graphics application programs to be equally easy to write and 
equally portable. 
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Now a days a large proportion of application progra- 
mming is being done in SIMULA. Our aim is to provide 
programming interface for graphical input and output in 
SIMULA, so as to enable the application programmer to design 
and implement graphics application programs with ease and 
quickness. There are two approaches in providing this pro- 
gramming interface . One approach is the use of functions 
or procedures to access the capabilities of the graphics 
system. The other approach is to extend the programming 
language namely SIMULA with special statements and progra- 
mming constructs for graphical input and output. For a 
device-independent graphics system, however, it is more 
appropriate to use a package of functions than a set of 
language extensions. The aim of device-independence is, 
afterall, to achieve portability and use of a special language 
leads to the need for special compilers that are unlikely 
to be plentifully available. So it was decided to develop 
’ graphics package’ type programming interface. It consists 
of two parts. The first part called ’GSIMULA* deals with 
displaying images of two dimensional objects. The second 
part called ’GRAS’ deals with displaying images of three 
dimensional objects. The facilities provided by GRAS are: 



(1) Different types of planar geometric projections 

( 2 ) Instant transformations (3) Picture segmentation. 
Hidden line/ surface elimination. The design of this 
package is based on the standards proposed by Graphic 
Standard Planning Cbmmittee of ACM/SIGGRAPH. 



CHAPTER 2 


SPECIFICATIONS OF GRAS 

GRAS offers a compact but functionally complete 
command set to display the images of three dimensional 
objects. This command set can be divided into 5 distinct 
classes. 

1. Output functions 

2. Viewing functions 

3. Instance transformation functions 

4. Picture segmentation functions 

5. Control, and other functions 

2.1 OUTPUT FUNCTIONS: 

An application programmer generates complete pictures 
by inserting calls to these functions in the application 
program* 

Assume that an imaginary pen is tracing the three 

dimensional scene that is to be displayed. Movement of this 

imaginary pen is controlled by these functions. As the pen 

moves in the world coordinate space, the package transforms 

the coordinate data. The display device draws the picture of 

using the transformed data. 

the scene on its screen In the material that follows, we 


/ 
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often use the term ’CP'* It may be thought as a storage 
element and is used to store the position of the imaginary 
pen, obtained after any output primitive fed to it is 
effected [2] • 

A -MOVE -3 (x,y,z) : 

Where parameters 1 x,y,z’ are of REAL type and 
represent a point in world co-ordinate units. 

This function is used when it is required to move the 
pen to the point (x,y,z). While moving, the pen does not 
mark on the scene. After the pen has reached the destination, 
the * CP* is updated, 

R -MOVE— 3 (DX.DY.DZ) : 

Where parameters ’DX, DY, DZ r are of REAL type and 
these represent displacements in the x,y,z directions of the 
world coordinate space. 

This function displaces the pen from 1 Cp’ by Dx, DY, 

DZ in x,y,z directions. While moving, the pen does not mark 
on the scene. After the pen has reached the destination, 

‘CP’ is updated. 

A-LINE-3 (x.y.z) : 

Where parameters 1 x,y,z’ are of REAL type and they 
represent a point in world coordinate space. 
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This function makes the pen to draw a line from the 
point denoted by ’CP’ to the point at (x,y,z). After the 
pen has completed drawing the line, the position of the pen 
is saved in * CP* • 

R “~LIN£ --3 (DX.DY.DZ) : 

Where parameters 1 DX, DY, DZ’ are of REAL type and 
they represent displacements in x,y,z directions of world 
co-ordinate space. 

This function makes the pen to draw a line from point 
denoted by 'CP* through displacement by DX, DY, DZ. After 
the pen has completed drawing the line, ’CP’ is updated. 

A-POLYGQN-3 (AX, AY, AZ. N) : 

Where parameters ’Ax, AY, AZ’ are arrays of REAL 
type. Parameter *N’ is of INTEGER type. Arrays AX, AY, AZ 
hold the co-ordinate data of the vertices of a polygon in 
world coordinate space .N represents the number of vertices in 
the polygon. 

This function makes the imaginary pen to draw a 
polygon. The polygon is drawn first by moving to the first 
vertex, then drawing lines between consecutive vertices, 
and then finally closing the polygon by drawing a line 
from Nth vertex to first vertex. After the complete 
polygon is drawn, the ’CP’ is updated. 
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R-POLYGON-3 (AX. AY. AZ. N) : 

Where parameters ’AX, AY, AZ‘ are arrays of REAL 
type .Parameter *N' is of INTEGER type. Arrays AX, AY, AZ 
hold the displacements of vertices of a polygon in x,y,z, 
directions of world coordinate space. N represents the 
number of vertices in the polygon. 

This function makes the pen to draw a polygon by dis- 
placing the pen successively 1 N* times(by values given in 
arrays), and then finally closing the polygon. After polygon 
is completed, the 'CP‘ is updated. 

Circle-3 (ft. CX. CY, CZ ): 

Where parameters R, CX, CY, CZ are of REAL type. 

This function makes the pen to draw a circle of radius R 
with centre at (CX, CY, CZ) in the plane parallel to xy- 
plane of world coordinate space. 

2.2 VIEWING FUNCTIONS: 

In computer graphics dealing with the three dimensional 
scenes, the display surface being two dimensional each 
point in the scene must be mapped to some point on a plane 
surface (Fig. 2.1). Generally mapping of the scene onto a 
surface is also called projection. Conventionally, the point 
on the plane surface to which a point on the scene is 




15 


projected, is obtained by finding the point of intersection 
of the line, joining the two points: (l) the point on the 
scene under consideration and (2) a particular point called 
’centre of projection’, with the plane surface. Then the 
projection of the scene is displayed on the screen of the 
display device. We designate the plane onto which the scene 
is projected by the term’view plane 1 . A coordinate system 
incorporated on this plane to measure the coordinates of the 
mapped points is called 'U-V system’. [4], 

Whenever a photographer- wants to rake a photograph 
of a real scene, he will do three things before clicking the 
camera: he selects a location for the camera, he sets the 
camera towards the scene, he adjusts the lens which deter- 
mines how much of the scene will be included in the picture. 

Analogous a djustments are done by parameter speci- 
fications of the viewing functions. 

^et-u p-view plane (KX. RY, HZ. NX. NY.NZ,,D_, PX,PY,PZ) : Where 
parameters ’RX, RY, RZ, NX, NY, NZ, D, PX, PY, PZ’ are of 
REAL type. 

This function determines location and orientation 
of the view plane onto which the projection of the scene 
is taken. Assume that a telescopic stick is attached 
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orthogonally to the view plane at the origin of U-V system 
and the free end of stick is positioned at a point called 
* Reference point* • By adjusting the length of the stick 
and rotating the stick about the reference point, the 
location and orientation of view plane can be altered. By 
choosing the reference point near the centre of object to 
be viewed, views of the object from different directions can 
be obtained easily. Parameters * RX, RY, RZ* represent the 
co-ordinates of reference point in world coordinate units. 
Parameters ’MX, NY, NZ’ represent the co-ordinates of some 
point on the stick relative to the reference point. Parame- 
ter ’ D* represent the distance of view plane from reference 
point. Rotating the camera about viewing direction shows 
the same scene but puts a different part of the object up. 
Similarly any part of the object can be made vertical in the 
image, by the specification of a vector (PX, PY, PS). The 
projection of this vector is taken onto the view plane, 
and the view plane is rotated till this projection coincides 
with the V-axis. 

Set-pro jection -Parameters (VX, VY, VZ, Flag ) 5 

Where parameters ’VX, VY, VZ’ are of REAL type and 
parameter ’Flag’ is of BOOLEAN type, whe an the centre of 
projection is at a finite distance, from the object, then 
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the projection is called perspective projection and when 
it is far away, then all the lines joining the centre of 
projection become parallel, and the projection is called 
parallel projection .Wien application programmer intends to 
obtain perspective projection, he should assign the ‘Flag* 
to TRUE and parameters *VX, VY, VZ» to the coordinates of 
'centre of projection* in u-V-W co-ordinate space. u-V-W 
co-ordinate system is a right-handed system and is obtained 
by extending U-V-system with W-axis perpendicular to view - 
plane. When the application programmer intends to obtain 
parallel projection then he should assign 'Flag' to FALSE 
and parameters 'VX, VY, VZ’ indicate direction of projection 
in U-V-W system* 

Set-Window (XL. XH. YL, YH) : 

Where parameters XL, XH, YL, YH are of REAL type. 

The object to be viewed is projected onto the view plane. 
The graphicspackage must be informed, what portion of the 
plane the application programmer intends to display, for it 
has to transform output primitives from U-V system to 
screen coordinate system. The programmer should specify 
only rectangular portions with edges parallel to U-V coordi- 
nates* The parameters ’XL, XH, YL, YH’ define the low and 
high limits of window along each coordinate axis of the 
U-V system. 
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Set~View-Depth (FD. RD) 

Where the parameters f FD, RD* are of REAL type. 
Specifications of view plane and type of projection 
determine view volume, (Fig. 2.2 and Fig. 2.3). In case of 
perspective projection, the’view volume 1 is semi-infinite 
pyramid whereas, in the case of. parallel projection it is 
infinite parallelepiped. In either case, they may be 

truncated to a finite view volume by specifying a front 
clipping plane and a back clipping plane. Both clipping 
planes are parallel to the view plane and both are specified 
by distances along the view plane-normal FD, RD specify 
these distances. 

Truncation of view volume is desirable when the user 
wants to view only a certain portion of view volume, elimi- 
nating the extraneous information, outside the desired 
view volume. For perspective projections, there is an 
additional motivation. A very distant object comprising 
many output primitives may appear on the view surface as a 
‘Blob’ with no distinguishable form. Also an object 
which is very near to the view point may extend across the 
entire viewport like so many pick up sticks conveying 
useless information to the viewer and in fact distracting 
from the perception of useful information. 



View plane 
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Se.t=rigpthrPXags (Flagi Flag2 )t 

Where parameters *Flag 1, Flag2 1 are of BOOLEAN 
type* Fiagi when TRUE, enables clipping against front 
clipping plane 

Flag2 when TRUE enables clipping against back 
clipping plane, 

Set-y Newport (XL. XH. YL. YH): 

Where parameters 'XL , XH, YL, YH* are of INTEGER 
type. A viewport is a rectangle on the screen where the 
programmer would like th window* s contents displayed* It 
is often useful to specify a viewport smaller than screen, 
for we can then leave room for command menus, system 
messages, and also we can display different views and 
projections onto different parts of the screen* The 
parameters *XL, XH, YL, YH* define low and high limits of 
viewport along each axis of the screen co-ordinate system. 
The range of values for XL and XH is from 0 to 1024 where 
as for YL and YH, it is from 0 to 750* 

2.3 INSTANCE TRANSFORMATION FUNCTIONS: 

The geometric models and other forms of data that 
are to be displayed, often have a clearly evident structure. 
They include structures which are repeated. Instance 
transformation functions allow these structures to be placed 
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■any where jin the world coordinate system in any orientation 
and size by geometric transformations: translation, rotation, 
scaling* 

In charts we find definitions of graphical symbols 
in the key of the chart and instances of each graphical 
symbol at different locations* Similarly we define symbols 
by a sequence of output primitive calls in a different 
coordinate system called ’Master coordinate system* and 
these symbols are positioned by making calls to transfor- 
mations prior to the symbol call [l]. 

Scale-3 ( ^X.SY.SZ) t This function scales the symbol rela- 
tive to the origin by factors Sx,Sy and 
Sz in the x,y, and z directions 
respectively. 

Rotate (I. Phi ) : This function rotates the symbol 

anticlockwise through Phi Degrees 

1=1 implies the rotation is with 
respect to x-axis. 

1=2 implies the rotation is with 
respect to y-axis 

1=3 implies the rotation is with 
respect to z-axis. 



22 


Translate^3(Tx.TY|TzY a Translates the symbol through 

distances Tx,Ty and T* measured in 
the x,y and z directions respectively* 

Above transformations, when called, post multiplies the 
instant transformation matrix. 

Beqin-tran : This function when called does the following 
operation. 1) Pushes the overall transformation matrix 

on to the stack* 

2) Multiplies instant transformation matrix 
with overall transformation matrix* 

3) Makes instant transformation matrix to 
identity* 

End-tran : Restores the overall transformation matrix 

from the stack* 

2.4 SEGMENTATION FUNCTIONS: 

The image on the .display screen is often composed 

/ 

of several pictures or items of information . We might 
wish to show all the information simultaneously or at other 
times look at individual items. This can be done with the 
help of picture segmentation functions* The package 
provides functions to name different parts of the picture 
and to effect the desired modif ications on these 
parts [4]. 



23 


Crea te-seqment ( seq-name > : This function starts a new 

segment and this segment is named by tfto paj-aneter 
passed through this functions call* Output - functions, 
called subsequent to this call are added to this 
segment* 

Close-segment : When application, programmer has added 

instructions to a segment and wants to add no more 
instructions, then he can do so by calling this 
function* 

Delete-segment ( seq-qame ) ; If a segment is no longer required 
and its storage is to be recovered, it can be done 
by calling this function* 

Delete-all segments : This function deletes all segments* 

Post-segment (seq-name) ; Visibility of the segment named with th 
with the supplied parameter is set to ‘VISIBLE* • 

Unpost-seqment (seq-name) ; Visibility of the segment named 
with the supplied parameter is. a set to 'INVISIBLE* 

Update-display : Transmits DPU code belonging to the visible 
segments to the display processor* 
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2.5 CONTROL AND OTHER FUNCTIONS! 

Clear-screen t This function clears the screen of the 
display device* 

Draw-vjewport :This function draws the specified viewport 
on the screen of the display device. 

Init-seqments : This function initialises the segment 
directory and the buffers. 

Eliminate«4iidinq : Lines or parts of lines obscured by 
the surface of the same object or other 
objects are eliminated. 
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IMPLEMENTATION DETAILS 

The sequence of processes through which the output 
primitives undergo before they are displayed is shown in 
the Fig* 3*1, 

Application data structure holds data of the object 
to be viewed. Application program issues output primitive 
calls which describe the object. These output primitives 
undergo a sequence ox processes before they are displayed. 

3.1 INSTANCE TRANSFORMATION: 

Each output permitive is transformed with overall 
transformation matrix. Initially the overall transformation 
matrix and instant transformation matrix are set to 
identity. 

Each transformation call postmultiplies instant 
transformation matrix. After specifying complete trans- 
formation and prior to the symbol calling, the function 
‘Begin-Tran* is called. This function does the following 
operations: 1) Overall transformation matrix is saved on 
the stack, 2) instant transformation matrix is multiplied 
with overall transformation matrix and 3) instant trans- 
formation matrix is set to identity. Then the symbol 
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* 


is called after which overall transformation matrix is 
reset with that on the top of the stack. 

3.2 VIEW-PLANE TRANSFORMATION: 

The application programmer defines the object/ 
objects to be viewed in world coordinate units. The 
objects are projected onto the view plane. Then this 
projected view is displayed on the screen of the display 
device. Computation of projection will be easier if the 
object description is transformed into a coordinate system 
lying in the view plane. U-V-W system is a right-handed 
system with the origin stationed at the point where the 
’view plane normal' pierces the view plane. Its U and V-a #s 
lie in the view plane. W-axis is perpendicular to the view 
plane. Transformation of the object specified in world 
coordinate units to view plane coordinate units is done by 
multiplication of co-ordinates of the points with a matrix 
and this process is called view plane transformation. The 
matrix that is used in this transformation is generated by 
the procedure * setup-view plane*. 

The transformation matrix which when applied to word 
coordinates of a point, yields U-V-W coordinates of the 
point, can be obtained by combining primitive transformations. 
These primitive transformations correspond to different 
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stages in positioning the U-V-W system. The first step 
is positioning the origin of the u-v-W system at the point 
where view-plane normal pierces the view plane such that 
its axes are parallel to x,y,z axes of the world coordinate 
system. After the origin is in place, the w-axis is aligned 
with the view plane normal. This can be done by rotating 
U-V-W system first about U-axis until view plane normal is 
in u-w plane and then about v-axis until w-axis coincides 
with the view plane normal. Now the only step remaining is 
to rotate the U-V-W system about w-axis until the projection 
of the vector (PX, PY, PX) on to view plane coincides with 
V-axis, The entire transformation sequence is given by 
(T) * (Flu) * (Rv) * (Rw). 
where, 



Tx = (Rx) + (D * Nx) 

Ty = (Ry) + (D * Ny) 

Tz = (Rz) 4* (D * Nz) 

Tx,Ty,Tz = coordinates of the point where the view plane 
normal pierces the view plane 
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Rx,Ry,Rz - -co-ordinates of reference point 
Nx,Ny,Nz = co-ordinates of normalised view plane vector 
D =s distance of view plane 

O 0 0 

cos(©u) sin(©u) 0 
sin(0y) cos(©u) 0 
0 0 1 

©u as Angle through which the u-v-w system is rotated clock-wise 
about u-axis 

Temp= y(Ny) 2 +(Nz) 2 

sin(©u) = Ny/temp; cos(0u) = Nz/temp. 

0 -sin(©v) 0 .• 

1 0 0 . 

0 cos(0v) 0 

0 0 1 ” 

0v = Angle through which u-v-w system is rotated clockwise 
about v-axis. 
sin(0v) - - Nx 

cos(©v) = temp. 


Rv 


cos(0v) 

0 

sin(0v) 

0 
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Rw = 


cos(0w) sin(Qw) 0 
~sin(0w) cos(©w) 0 
0 0 1 

0 0 0 



where 

&w = angle through which u-v-w-system is rotated 

clockwise about w-axis so that the projection of 
positioning vector ( Px, Py, Pz) coincides with 
v-axis. 

PRx = length of the projection of position vector 
along u~axis. 

PRy = length of the projection of position vector 
along v-axis. 

Save = f(PRx) 2 + (PRy) 2 

sin(©w) = PRx/save 
cos(©w) = PRy/save 


3,3 CLIPPING: 

In this process the portion of the three dimensional 
scene that Is within the view volume is displayed and the 
rest is discarded. There are two reasons why clipping is 
desired. The first reason is, when one wants to display 
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a Small portion of a large scene, transformed output 
primitives of the scene lying outside the size of the 
display device may cause problems such as Wraparound 1 
due to the overflow of internal coordinate registers of the 
display device. The second reason is to avoid processing 
of undesired portion by processes ahead. The view volume 
is determined by window and projection specifications. 

There are several clipping algorithms available. The 
algorithms, we used, is polygon clipping algorithm dis- 
covered by Sutherland and Hodgman. This algorithm clips 
lines as well as polygons. Polygons when clipped with this 
algorithm, remain polygonal. Simple line clipping algorithms 
will clip polygons to outlines that are no longerclosed. To 
close the outline, appropriate sections of window boundary 
must be added to it. 

Our clipping algorithm is based on the idea that it 
is relatively easy to clip a polygon against a single 
clipping plane rather complete view volume. Complete clipping 
is performed by clipping the polygon successively by all the 
six planes of the view volume. The output from 

each clipping stage is a polygon i.e. an ordered sequence 
of vertices. As the order of generation of vertices by 
a clipping plane is same as the order of feeding to the 
next clipping plane, it is possible to begin clipping on 
second bounding plane before clipping of the entire figure 
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clipping the polygon. 

Note 2i Processing by each clipping plane is shown in the 
next page. 

Fig. 3.2: Block diagram of clipping process. 
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Processing by each clipping plane 
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against the first boundary plane is completed* The block 
diagram of clipping process is given in Fig. 3.2. 


3.4 PARALLEL PROJECTION: 

A parallel projection is formed by extending 
parallel lines from each of the vertices on the object 
until they intersect the view plane. The point of inter- 
section is the projection of vertex. We connect the 
projected vertices by line segments which correspond to 
connections of the original object. 


L) oterm ination of Projection of a Poin t 1 

Suppose that the direction of projection is given by 


the vector [X p , Y p , Z p ] and i 
projection of a point on the 

X = x x +(x p )u 

y = Yi +(y p ) u 

z = z x +(Zp)u 


is required to find the 
object at (x^,y^»z^). 

(3.4.1) 

(3.4.2) 

(3.4.3) 


The z-cordinate of any point on xy-plane is equal to 0. 

Therefore point of intersection of the line with xy-plane 
can be obtained by solving equations (3.4.1), (3.4.2) and 

(3.4.3) with z = 0* 
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Solving equation (3.4.3) for 

u we get 


z 

u = - a 


(3.4.4) 

substituting this value of u into equations (3.4.1) and 
(3.4.2) we get x and y co-ordinates of intersection point 

x = x i - h 


(3.4.5) 

y = y i - 2 i 


(3.4.6) 


3.5 PERSPECTIVE PROJECTION: 

The perspective projection of an object is formed 
by passing lines (projectors) from a 'centre of projection' 
through each point on the object and finding projectors' 
intersection with the view plane. 

Determinati on of Projection of a Point on to the xy Plane : 

Suppose that centre of projection is at (x c , y c , z c ) 
and it is required to find the projection of a point on the 
object at ( Yj_> z i) * Then the parametric equations for 
the line containing these two points are given by 

x = x c + (x 1 -x c )u (3.5.1) 

y = y c + (y 1 -y c ) u (3.5.2) 

z = z c + (z 1 -z c )u 


(3.5.3) 



The z-coordinate of any point on xy-plane is equal to 'O' • 
Therefore point of intersection of the line with xy-plane 
is obtained first solving the equation (3.5,3) fox u, by 
substituting z = 0 and then substituting the value of u in 
equations (3.5.1) and (3.5.2). 

Solving equation (3.5,3) for u 


u = - ( 



-) 

c 


(3.5.4) 


Substituting this value of u into equation (3.5.1) and 
(3.5.2) we get x and y coordinates of intersection point 


x 





(3.5.5) 


y 



z 


c 


(Iil y 

V 7 — 


z r z 



(3.5.6) 


Equations (3.5,5) and (3.5.6) can be rewritten as 
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3.6 HIDDEN LINE ELIMINATION: 

When an object is viewed, its entire surface is not 
visible. Only some parts of the surface are visible. What 
is visible and what is invisible depends upon the point of 
view. An area on the object becomes invisible, only when the 
light rays from it cannot reach the view point. The opaque 
material of the object makes certain areas invisible by 
preventing light rays from these areas in reaching the view 
point. In computer generation of an image, no such automatic 
elimination takes place when the objects are projected onto 
the screen coordinate system. Instead, all parts of the 
object including many parts that should be invisible, are 
displayed. A process must be employed which differentiates 
the visible portions and invisible portions. This process is 
known as hidden line/surface elimination. 

There are a number of hidden line/ surface algorithms - 
some simple, some very sophisticated. Some only work on 
special, peculiarly defined objects, whereas others work on 
all combinations of objects. These general algorithms are . 
therefore complicated! moreover they may be limited by computer 
time and storage restrictions. We describe two methods 
here. The first is relatively simple while the second uses 


a general algorithm 
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The first algorithm is called Back-Face detection 
and Removal algorithm and has to be used only when the order 
of vertices listed for each polygon corresponds to anti- 
clockwise order as seen from the outside of the object. This 
algorithm eliminates all hidden surfaces for a single convex 
body. The principle of this algorithm is the determination 
of surfaces which face the vi^w point and identifying these 
faces as visible surfaces. A surface will face view point if 
the angle between the outward normal of the surface and 
viewing direction is between 0 degrees and 90 degrees. 

The second algorithm is called painter’s algorithm. 
While the previous algorithm can remove many of the hidden 
lines and surfaces, it does not completely solve the problem. 
If we have two separate objects, then a front face of one 
object may obscure a front face of the second object. In 
Painter’fe algorithm, we can not process each polygon indepen- 
dently, as was done in the first algorithm. We must compare 
each polygon with all the rest to, see which is in front 
of which. The block diagram of Painter’s algorithm is given 

on the next page. 

The object is described to the system as a collection 
of n polygonal faces. 
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Fetch Polygons 
from C-buffer 
one by one and 
split each 
polygon into : 
triangles and I 
place the 
triangles intoj 
B~buffer 


[For each tria- 
ngle make a 
list of trian- 
gles which are 
in front of it 


Test each 
triangle with 
the triangles 
in front one 
by one and dis- 
play the visible 
portion only. 


BLOC K-DIAGRAM of painter *s algorithm 


Step 1 : This step is performed by the procedure ’Split-into- 
triangles’. Polygons are split into triangles. 

S tep 2 : is performed by the procedure ’Compare-all-triangles 1 . 

This procedure uses the function ’ compare-two-triangle s’ 
which output ’O’ if the two triangles do not overlap. 

If the two triangles overlap then it outputs -1 when 
the first triangle is infront of the second and it 
outputs +1 when the first triangle is at the back of 
the second. 


S tep 3 : Testing the entire triangle is done by testing the 

sides of the triangle one at a time with the triangles 


in front 
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3 . 7 WINDOWING TRANSFORMATION: 

The application programmer specifies a rectangle of 
interest in the view plane co-ordinate system and a rectangle 
on the screen of the display device. Let us suppose that 
edges of the window are 

u = WXL 
u = WXH 
v = WYL 
v = WYH 

and edges of screen are 

x = VXL 
x = VXH 
y = VYL 
y = YYH 

The graphicspackage transforms contents of window into the 
viewport. 

The corners of window are mapped to corners of view- 
port. Let a point (XW, YW) in the window be mapped to a 
point (Xy, YV) in the viewport. 


(VXH - VXL ) a (WXH - WXL ) 
(XV - VXL ) a (XW - WXL ) 


(3.7.1) 

(3.7.2) 




/ 



/ 

/ 

/ 


/ 


/ View plane 
system 


/ 



coordinate 


surface 


q. 3.7.1; Windowing Transformation 







42 


Dividing eq. (3,7.2) by Eq. (3.7.1) 

XV - VXL XW ~ WXL 

i/iR zmr 

Rewriting hq. (3.7.3) 

XV = ( xmx l) + VXL 

Similarly, 


( VYH-VYL) a (WYH - TO) 
(YV - VYL) a (Y« - TO) 
Dividing eq. (3.7.6) by eq. (3.7.5) 



Y W-WYL 

vTyh~wyl 


Rewriting eq. (3,7.7) 


( S 7 ff - E - W ) (VW-WVL) + VYL 



(3.7.3) 

(3.7.4) 

(3.7.5) 

(3.7.6) 

(3.7.7) 

(3.7.8) 


converts device independent output 
primitives in NDC space into 
corresponding display instructions 
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Segmented Display file: contains a list of display instru- 
ctions generated by compute^, 

Df^U • generally includes a vector generator and a 

character generator, which converts the display 
instructions into signals suitable for the 
display’s deflection system. 



CHAPTER 4 


CASE STUDIES 

During the development of the package, to debug and 
check the performance of the package, programming examples 
were developed. These examples show the typical usage of 
the command set [3], 

4.1 SPHERE: 

This program draws the figure of a sphere and is 
available in the file * Sphere.Sim* . The photograph of the 
picture drawn by this program is shown in Fig. 4.1. The 
program generates a sphere by rotating a semicircle in 
yz-plane through 360 degrees about y-axis. The program 
describes the sphere to the graphics system by a sequence of 
calls to^primitive ’polygon*. 

The semicircle is divided into 24 equal parts. The 
end points of the line segments are stored in arrays y in 
and z in . Initially these points are also stored in arrays 
x-pxes, y-pres, z-pres. The semicircle is rotated through 
and angle deltita and now the co-ordinates of the points on 
the semicircle are computed from the co-ordinates stored in 
the arrays y^ n and z in * The computed co-ordinates are 
stored in the arrays x-next, y-next, z-next. Array set 
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1 x-pres, y-pres, z-pres' and Array set *x-next, y-next, 
z-next contain vertices for a strip of polygons and calls 
to polygons are issued. Then the coordinates of points 
in the set 'x-next, y-next, z-next’ are transfered to the 
array set ' x-pres, y-pres, z-pres' and the array set 
’x-next, y~n,ext, z-next* is filled with the points got by 
rotating the semicircle through an angle deltita. Calls to 
polygons are issued and the process is repeated till the 
full sphere is drawn. 

4.2 RING BALL: 

This program displays a ring ball and the program 
for this is available in the file named 'RING. SIM' . The 
photograph of the picture drawn by this program is shown in 
Fig. 4.2. The ring is generated by rotating a circle posi- 
tioned in YZ-plane with centre on the z axis at a distance 
of R from the origin, though 360 degrees. The program 
describes the object (i.e. .Ling ball) to the graphics system by 
a sequence of calls to the output permitive 'polygon', and 
is similar to the program for sphere. 

4.3 TYRE: 

This program displays a cycle tyre and the program 
is available in the file named 'Tyre .Sim’ . The photograph 
of the picture drawn by this program is shown in the Fig. 4.3. 
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The tyre is generated by rotating an arc of the circle 
through 360 degrees about y-axis and the program is similar 
to that of the ring. 

4.4 HOUSING COMPLEX: 

This program displays four houses and the program 
is available in the file ’Houses .Sim* . The photograph of 
the picture drawn by this program is shown in Fig. 4.4. 

This program reads data necessary for drawing a house from 
the file ’Houses Dat* • It generates 4 houses by applying 
instant transformations to the symbol 'House’. Each house 
is stored in a separate segment. Any combination of the 
houses can be displayed with this program. 

4.5 HOLLOW CUBE: 

This program displays a hollcw cube and the program 
is available in the file ’Hollow. bim’ . The photograph 
of the picture drawn by this program is shown in Fig. 4.5. 
This program reads data for a single solid cube. Then it 
builds the hollow cube by instant transformations of solid 
cube. User can specify the viewing direction interactively 
and the program displays the view of the hollow cube in 


that direction. 



4.6 PROJECTIONS: 


This program displays various types of projections of 
a cube and the program for this is available in the file 
' Demo.bim*. The photograph of the' picture drawn by this 
program is shown in Figs. 4.6 and 4.7, It illustrates 
one point, two point, three point perspective views and 
isometric, cabinet and cavalier projections. 
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Fig. 4.1: SPHERE 
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Fig. 4.3: CYCLE TYRE 
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Fig. 4,7i PAnALLRL PROJECTION 




CHAPTER 5 


CONCLUSIONS 

5,1 TECHNICAL SUMMARY: 

We perceive and process data rapidly and efficiently 
when they are presented pictorially rather than as text. 
As such many applications will require the display of three 
dimensional objects. If the architect would like to see, 
how the structure will actually look, then a three dimen- 
sional model can allow him to view the structure from 
different points. The aircraft designer may wish to model 
the behaviour of the craft under three dimensional forces 
and stresses. 

In order to enable the application programmer to 
display three dimensional objects with ease, a software 
package consisting of a set of procedures coded in ’SIMULA* 
a high-level programming language, was developed. The file 
named 'GRAS* contains these procedures. Facilities 
provided by this package are (1) Different types of planar 
geometric projections (2) Instant transformations (3) 
picture segmentation (4) Hidden line/surface elimination. 
These facilities are made available through the command set 
The package is primarily designed for Tektronix 4006-1 
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graphics terminal, which is of ’Direct View Storage Tube 1 
type. The graphics package can be modified to other display 
devices by modifying the ’display code generator' part 
of the package. Since the package is written in a high-level 
programming language namely SIMULA except for one procedure, 
this package can be implemented on any machine that has Simula 
compiler by rewriting that procedure alone. 

5.2 FURTHER SCOPE: 

The facilities provided will be adequate for a majority 
of graphics applications . Simple and straight-forward 
algorithms have been used in the design of the package. 

Input functions are not included in the package as we are 
using Direct View Storage Tube' type display. The package 
can be extended to include input functions to cater for 
refresh type display. The algorithm used for hidden line 
elimination is not efficient. Many hidden line algorithms 
consume a lot of computer time and computer storage. If 
better algorithm is invented in due course, it can be 
incorporated. For display file, the data structure ’array' 
is being used. A free storage allocation system can be 
employed to supply blocks of free memory and to receive 
blocks that are vacated, to manage the storage efficiently. 



appendix a 


THREE DIMENSIONAL TRANSFORMATIONS 

1. Translation : 

Let x,y,z be the coordinates of a point in a 
3— dimensional coordinate system* When this point is 
translated by Tx, Ty, Tz in x,y, z directions, its coordinates 
get altered. Let us denote the altered coordinates of the 
point by x’ , y* , z* • The values of x l ,y T ,z’ are given by 


/ V 

x» = 

x + Tx 

w * w 

(1) 

yt = 

y + Ty 

(2) 

Z* = 

z + Ty 

(3) 



in 


Equations (l),(2) and (3) when writteh/matrix form will 
be of the form 

[x* y* z’] = [x+Tx y+Ty z+Tz] 

= [x y z] + [Tx Ty Tz] (4) 

By denoting the row vectors [x y z], [x 1 y T z*] and 
[Tx Ty Tz] by P, P' and T respectively, we can rewrite 

equation (4) concisely 

p« = P+T ( 5 ) 

By translating all the points on the object, the object 
can be translated. 
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2* Sealing s 

Let x,y,z be the coordinates of a point in a 
3-dimerisional coordinate system* When this point is 
stretched by bx along x-axis, by Sy along y-axis and by 
Sz along z-axis its coordinates get altered. Let us 
denote the altered coordinates of the point by x'^y 1 ,z*. 

The values of x' f y*, and z* are given by 

x* = (x) * (Sx} (6) 

y r = (y) * (Sy) ( ? ) 

z* = (z) * (Sz) (8) 

in 

Equation (6) and (7) and (8) wher^written matrix form, will 
be of the form 


[x* y* z’] = [x*Sx y*Sy. z*Sz] 

*~Sx 0 0 

s [xy z]* 0 by 0 

0 0 Sz_ 

By defining P, P‘ and S as shown below 


P 

P‘ 


S 


= [ x y z] 

= [x* y* z‘] 
% 0 O 

= 'o Sy 0 

QO Sz 


(9) 



W« «*n equation ^9> wieiaoly as 


, p' =■ P*S UO) 

Rotation : 

Let a point (x,y»z) when rotated through an angle © 
anticlock wise about z axis be transformed into a new 
point (x’yy’jZ’)* The values of x^y* and z‘ are given by 


x‘ s» x cos 9 - y sin 8 (ll) 

y* =» y cos © + x sin 9 (12) 

z* as z (13) 


Equations (ll) t (12) and (13) when written in matrix form* 
will be as follows 


[x* y* z 1 ] =a [x cos© - y sin© y cos© - x sin© z] 


=» [ x y z ]‘ 


cos© sin© 0 

-sin© cos© 0 

0 0 1 


(14) 


By defining P, P* and Rz as shown below 


p = [x y z ] 
p* = [x* y f z*] 


Rz(») * 


cos© sin© 0 
-sin© cos© 0 
0 0 1 
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Wft r-awri** *qua^M» concisely ac 


P* * P * M») 


( 15 ) 


Similarly^we can write for rotations about x and y axes as 

P 1 ~ P * Rx(e) 

P* » P * Ry(e) 


where, 


Rx(0) = 


Ry(e) * 


1 0 
0 cos© 
0 -sin© 

cos© 0 
0 1 
sin© 0 


0 

sin© 

cos© 

-sin© 

0 

cos© 


The matrix representation for translation, scaling and 
rotation are shown below* 


pt - p+T 
P« = p*S 

pt = p*R 


From the above it can be noticed that the translation is 
treated differently from the other two* 

By transforming the points into homogeneous coordinate 
system, . all the three transformations can be made as 
multiplications • 


4 
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In homogeneous coordinates, a point P(x,y,z) is 
represented as (w,x, w,y, w.z, w) where w ^ o. Given a 4 
homogeneous, coordinate representation for a point 
P(X, Y t Z,W), we can find 3d cartesian coordinate 
representation for the point as x=; { y=!i z = f . 

W vv W 

If w * 1, 3d~cartesion coordinates can be obtained without 

t 

division* 


Transformations for translation, scaling and 
rotation, when co-ordinates are represented in homogeneous 
coordinate systems, are derived and given below. 

Translation : 


[x« y* z* l] » [x+dx y+dy z+dz l] 


Scaling : 


n 


a [x y Z i] * 


0 


0 

1 


0 

0 


0 

0 


0 0 10 
dx dy dz 1 


[x* y‘ z 1 l] - [x*Sx y*Sy z*Sz l] 



= [x y z 1] * 


0 

0 

O 


0 0 0 

Sy 0 0 

0 Sz 0 

0 0 1 



62 


Rotation about z-axis i 

[x* y* z' l] = [x cos© —y sin© y cos© + x sin© z l] 


[x y z 1] * 


cos© sin© 0 0 

-sin© cos© 0 0 

0 0 10 

0 0 0 1 


Similarly rotations about x and y axes are given below 


Rx(o) 


10 0 0 
0 cos© sin© 0 
#0 -sin© cos© 0 
0 0 0 1 


Ry(©) = 


cos© 

0 

sin© 

0 


0 

1 

0 

0 


•sin© 

0 

cos© 

0 


0 

0 

0 

1 



APPENDIX B 


PLANAR GEOMETRIC PROJECTIONS 

i 

To produce a two dimensional view of an object, each 
point on the object must be mapped to some point on the view 
surface. The standard method used for generating a two 
dimensional view of a three dimensional object is by projecting 
straight lines that are emanating from a fixed point and 
passing through each point of the object, onto a plane positione 
in their way, and then finding the image by the intersections 
of these lines with the plane. The fixed point is known as 
’center of projection.' The straight lines are known as 
’projectors’. The plane is known as ’projection plane or 
'view plane’. This type of projection is known as ’planar 
geometric projection’ because the projection is onto a plane, 
rather than onto a some curved surface and projectors are 
straight, rather than curved, Non-planar and non-geometric 
projections are extensively useo in cartography. 

Planar geometric projections can be divided into two 

classes 

1, perspective projections , 

2. Parallel projections 

If the distance of the object from the ’center of projection’ | 
is finite then the projection obtained is 'perspective 
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projection’. If this distance is infinite, then all the 
projectors become parallel to each other and the projection 
obtained is known as 'Parallel Projection* . 

PERSPECTIVE PROJECTION: 

A perspective projection gives a natural appearance 
(realism) of an object as seen by the eye, but it is more 
difficult to construct manually compared to parallel views. 
However, with computer graphics frame work, once the object 
has been completely defined, any kind of view can be obtained 
with equal ease* In this projection objects of equal size 
appear smaller as their distance from the 'centre of 
projection' increases, and become larger as this distance 
decreases. This property is known as 'perspective fore- 
shortening' . 

FEATURES: 

1. Only lines parallel to view-plane remain parallel. 

2. Angles are preserved on those faces of the object 
which are parallel to projection plane. 

3. Because of perspective foreshortening equal line 
segments parallel to any particular axis will be 
foreshortened to different scales and therefore 
drawings using this projection cannot be used for 
obtaining dimensions of objects. 
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Perspective projection of any set of parallel lines of the 
object that are not parallel to the view-plane, converge to 
a single point in the drawing. This point is called 'Vanishing 
point' . The vanishing point is the point, where a line 
through the 'Center of projection' parallel to the set of the 
parallel lines, intersects the view-plane* I.f the set of the 
parallel lines is parallel to one of the principal axes, this 
point is called 'Principal vanishing point'. The number 
of principal vanishing points is equal to the number of 
principal axes, cut by the view-plane. Perspective projections 
are classified into three types depending upon the number of 
principal vanishing points. 

Two point perspective projection with view-plane 
vertical is widely used, whenever a realistic appearance of 
an object is desired, such as in advertisement drawing and 
presentation drawings of architectural, engineering, 
industrial, design. Three point perspectives are not used 
nearly so much, in part because they are hard to construct 
and in part because they do not add much realism beyond that 
afforded by the two point perspective, 

PARALLEL PROJECTION: 

Parallel projection is less realistic view because it 
lacks the property of perspective foreshortening. Although 
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there can be different constant foreshortenings along each 
axis, exact dimensions of the object can be obtained by 
multiplying the measurements in the drawing with appropriate 
scale factor. Parallel lines in the object do remain 
parallel in the projection. As with perspective, angles 
are preserved on those faces of the object which are parallel 
to the projection plane. 

Based on the angle between the direction of projectors 
and the view-plane, parallel projections are categorised into 
two types. 

1. Orthographic parallel projections and 

2, Oblique parallel projection 

When projectors are perpendicular to the view-plane, then the 
projection is orthographic; otherwise it is oblique. 

ORTHOGRAPHIC PARALLEL PROJECTION: 

Depending on the orientation of the view-plane, these 
are classified into either ’Multi view orthographic projections’ 
or ’Axonometric projections’. 

’Multi view orthographic projections’ contain two or 
more orthographic projections planes which are parallel to 
principal planes. A way of creating a Multi-view orthographic 
projection is to surround the object with six view-plane which 
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form a rectangular box around the object and arranging the 
six orthographic projections in a particular manner. 

Six views are rarely used. Mostly front, top, and side 
projections are used. Multi-view orthographic projections 
are presented with hidden lines either entirely omitted or 
drawn using dotted lines. Inclusion of hidden lines 
enhances the information content of each view. Consequently, 
one can do with -less number of views. If the object is 
complicated, hidden lines would be of little help as they 
would clutter up the view of the object. In such circumstances, 
one should make use of additional views with hidden lines 
removed. 

For objects with complicated internal structure, multi- 
view orthographic projections prove to be far from adequate. 
Internal details are best depicted by what are known as 
’Sectional views’. A sectional view of an object is obtained 
by cutting the object with a plane, removing one part of the 
object, and projecting the remaining part orthogonally onto 
the cutting plane. 

Multi-view orthographic projections are used In 
engineering drawings to depict machine parts, assemblies*, 
and buildings because these allow true measurement of 
distances and angles from these drawings. But since each 
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depicts only one face of of an object, 3-D nature of the 
object can be hard to visualise, even if several projections 
of the same object are studied simultaneously. 

Axonometric projection uses projection plane that 
intersects all three principal axes and therefore show 
several faces of the object in one view, just like perspective 
projection. But the foreshortening along any particular 
axis is constant. Since none of the faces is represented in 
its true form, use of these projections is limited to 
rectangular objects. Objects with, circular or curved shaped 
cross sections, are not represented effectively by this class of 
projections. Axonometric projections are used in catalogue 
illustrations, patent office records, piping diagrams, 
furniture design, machine design, structural design. 

Based on the angles, the view-plane normal makes with 
each principal axis, the axonometric projections are 
further classified into 

1. Isometric projections, 

2. Dimetric projections, 

3. Trimetric projections. 

In isometric projection, the view-plane normal makes 
equal angles with each principal axis. The isometric 
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projection has the useful property that, all the three 
principal axes are equally foreshortened, allowing measurements 
along the axes to be made with the same scale. (Hence the 
name: for equal, metric for measure). In addition, the 

principal axes project so, that they make equal angles with 
each other. 

In dimetric projections, only two angles out of three, 
are equal. In trimetric projections, all three angles are 
different. 

OBLIQUE PROJECTIONS: 

An oblique projection uses view-plane that is 
parallel to one of the principal planes and all projectors 
are inclined with the view-plane at an angle other than 
90 degrees. This projection has almost the same range of 
applications as an axonometric representation. However, 
while axonometric projections are primarly used for rectan- 
gular objects, oblique projections are well suited for 
objects with cylindrical shapes. Oblique projections combine 
properties of multi-view orthographic projections (which allow 
measurement of angles and distances) with those of axonometric 
projections (exhibition of all three principal faces in one 
view, and measurement of distances to the scale). 
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There are two important oblique projections, (l) cavalier 
projection, and (2) cabinet projection. In case of cavalier 
projection, the projectors make an angle of 45 degrees with 
the view-plane. As a result, the length of the projection 
of a line that is perpendicular to the view-plane is same as 
the line itself, that is there is no foreshortening. In 
case of cabinet projections, projectors make an angle of 
arccot (l/2), with the view— plane, so that lines which are 
perpendicular to view-plane project at l/2 of their actual 
length«In the drawings obtained using oblique projections, 
angle between the projection of the lines that is 
’Perpendicular to the view-plane’ and horizontal line is 
usually 35 or 45 degrees. 



71 


REFERENCES 


1. NEWMAN, W.M. and R.F. SPROULL, ’ Principles_ of Interactive 
Computer Graphics’, 2nd Ed., McGraw-Hill, New York, 
(1979). 

2. Foley, J.D. and A. Vandam; ’Fundamentals of Interactive 
Computer Graphics', Addison-Wesley , Mass. (1982). 

3. ANGEL, I.O., 'A Practical Introduction to Computer 
Graphics', MacMillan, London (1981). 

4. HARRINGTON, S., 'Computer Graphics: A Programming 
Approach', McGraw-Hill, New York (1983). 

5. ROGERS, D.F . and J.A. ADAMS, 'Mathematical Elements for 
Computer Graphics', McGraw-Hill, New York, (1976). 

6. GILOI, W.K., 'Interactive Computer Graphics -Data 
Structures, Algorithms, Languages 1 , Prentice-Hall, 
Englewood Cliffs, N.J. (1978). 

7. ACM Computing Surveys; vol. 10, No. 4, Dec. 1978. 




pec t r i Cci t: ion; 
K U 3 3 i.i r j ; 

* 

§ 


lACRO-t <> corje 



RURi lil j' 

RUODO f- 


; iPirjcEDJRS rj kubout tiokivjnix 

•; i * v * * * * * * * * * * * * * + 4 * * * ♦ * * * * * ♦ * * f * •*■ * * % f 


KiMO’JTjMOVKl 1,33 

outchk i 

WKT j,h 
.1 3 I '•’Oil. L 
RJ.' I 17, / 

MD; 



,S ( / i ' ) 


• i jC K DilR t R iJiiQ UT ; 


? f c: 


< ; <RhY s r a u t , s l ?, k [ u : i a ] ; 

'• X X 1‘ o A ., V . i iSlOIL!TV r PAnPEDID:l U J ? 

: V n. t'S * £»UFRKE f DF™,FREE, F R E K » C 0 i I u V _ J U r; 

' A^uorH 1 *? 1 : } 21 » n,i ' 2 ' : 1 ’ J ‘-' I ,lf_opii :<) jujJ 

■■j A V vprM,rTM,cr«n: 4 # iMj; 

\ II ID V Y D ua ■*? n f i » i-n . 


ARRAY 

ARRAY 

array 

array 


RE Ab 
REAL 
REAL 
REAL 
REAL 
REA L 
REAL 
REAL 
REAL 


XR.Yft.2UU j : 3 2 1 . 

xc, yc ,zc U : 1 LODJ; 
xi*, V !.),/, n u : 1 f> o o 1 • 

DF_X , 0 F _ Y [1 : 400 D J ; 

A XL, a XU, WYL.-.'YH; 

V’XL, VX 1,’JYh , 0 Y R J 
X LM, XHM, YLMff |M; 

W V S X , W V S V , M V T X , W V T Y ; 

LAST ..PCX , LAST _F C Y , L A S F _F C Z ? 

LAST_RRCX.LAST.RUC Y , LAST-RRCZ; 

LAST _BCX , i, A ST—ftC / , LAST-BCZ; 

LAST _TCX ,L4Sl’_TCY ,1 , A S T _ r Z l ; 

LAST.ft rc x , i. AS f_R rc i , las f_r izi ; 

. ■ „LA GT_LC X , ij A S f_LC Y , I , AS T _L C 7. ; 
n *! H ! r J fe ) N 1 S 0 F: N - F L 4 G , w 1 ft E_F R M E , C L 0 S £ l) _SUH F ACE, ERASE; 

, ' V f L 1 *; \ ^ £ H 2 M T - F ’ 4 A G ' R ! E A R -F L A G , P F L A 3 , P F KSPECT ! V E _ F L A G ,* 

* I KGbR ARRAY 

rfl.BK.TKSTEDf l : 1 DO J , START-I MOfiX , BA! 

I IT EG I* R ARRAY TNFr) , LINK [1 C 2'OQD I ; 
iff GGER TES P_rn TAf, , CURRENTLY -OPEN, MAX. 

CHARACTER C H J . 

real f 7 , _c lip.kz_c:hp; 

REAL XS.YS, XF, YF,XP,YP, X9, YU 
REAL SVX.SVY-SVZ? 

REAL SVl’X , SVTY ; 

real vptx.vpty, vptz; 

REAL CX.CY.CZ; 

REAL EPSILON; 

PROCEDURE SETUP—VIEWPLANE ( RX , RY , RZ , NX , N Y ,N7. ,1), PX. PY, EZ) : 
REAL RX.RY.RZ, 

NX , N Y , N& , 

PX,PY>PZ, 

o ; 


.total i 1 

-LIMIT; 


'10001 


' , r V , r ? " : coordinates of reference point 

i ■* Up -v.or l -i coordinate units , 1 

..nr:”: coordinates of an/ one point on 
■' J "■ lone nor ?, at Teas u red relative to the 
for. ere nee oo.int in the world coordinate 
."•its, 

" . coordinates of toe end point of 

a vector positioned 'at reference point 
’ v red relative to the reference point 
in torlo coordinate units, 

L . : oX stance of view olane frort reference 

o I n t , 


BEGIN 


, 


peal temp. prx.pky, PRD; 

'] E)XP i=S 5 P r(NX A 2 +MY “2 + NZ' k 2 ) ; 
nx :=nx/ temp; 

NV:sNV/rE-v.p; 


X'/;:=N2/TE«P? ■ . ’ • 

st T_ v f'T v _rn_r dent-i t y ; 

i (■ AhSLA J'F— 3 (-(RXf (UtNX)) ,-KRyt(.D*Nyj ),-(RZT(0*NZJ )); 

T’vMP ; = S 3f<T f N Y “ 2 +H X*2 ) ; 

H ! TATK.3 _X( NY/TEMP. N 7,/T EMp) ; 

EOT ATE— 3 _Y ( “MX , TEMP) ; . 

P!’X; = tPX*VPf V|[l , 1 I )fCpytypTM[2,lJ) + CPZ*VPTMl3,l J J; 
PKY;=(PX*YPrMU ,2J )+lPy*tfPTM[2,23 )+(P7*VPTM[3 f 2i )i 

PRD:=vS0RT(PRX‘2f PRY'‘2); ■ ' 

RhTATE-i-ZfPRX/PKD, PRY/PRD); 

£n r>— XFORM; 



1*. P'rj|«|ti0n ||sg 
be. a f f t z values o 
i-orrtinate system 


in orde.r to have, parrailel 
false and }x f srv ,fU shoud to.' 
direction in vie* plane co- 
in oraer to have perspectivirfrg: 
true and vx. vy,?a shoud be 
vie# Oinf Vie - Oaoe co 
»*#««» 

BFGTN 


ir C S' T/4 ’ , ^ ' yi i 


ENl )| 


EalVl/f 1 ' . ■ • "■ 

? MUCFDURE SET_PR3JECTI0N-PARAMErERSt VX, VY , VH, FLAG )? 

REAL, V X , V Y , V Z ; ■ ■ 

rt IOLEAN FLAG; 


i .«» « w m ^ , 

In orde.r to 
false and v 
direction i 


S V V t = V V ; 

s \ 7, : = v ?. ; 

l ;; PtHSPECTItTE-FUC THEM 

f ’ J ly 

x lh : = ( v x-svXti ) / vz; 

XHW ; = ( ./X- .,'X -I ) / VZr ■ 
Yi.Mj = { VY™a'YL)/VZ? 
YHM: = (YY->JYH)/VZ; 

b^n 
b! SE 
BEGIN 

xlm;=xhm:=vx/yZ; 

Y LM :"= y h M : = V y / V ?, ; 

r> t.KD; 

B K G T N 

<vXi,: = XL? ■ 

WXH: = Xfi; 

W V t, : = y ! ? 

WYM:=YH; 

If PERSPECTI tf E-FLAG THEM 
BEGIN 

XLM:=(SVX-WXL]/SVZ; 

■ X HM : = (S Y X-WXH ) /SVZ; 

Y L M J = ( S Y Y - W Y L ) / S V Z ; 
YmM-s^sV Y-aYH)/SV7,? 


END 


Y H M : 

E f'l f) * 

NEtol.V IEN I NG— TRANSFORM A Tf ON; 


c* r* i/ i 

PROCEDURE SET —V I EXPORT ( XL , XH , YL , YH ) ? INTEGER XL, XH , YU, * H, 
BEGIN 

VXL:=XL; 

vxh*=xh? 

V 5( L : * ¥ L ; 

DRAwIvS^WPORT; 

, NEW-V IEKI NG-J'RANS FO RM A I' I 0 M ? 

PROCEDURE DR AW— V IE W PORT f 

BEGIN 

DUTCH AR ( CHAR ( 29 .)) ; 

'J’RAfJSMl T —COORDINATES! VXD, YYL) ; 

:• ALS^’T i_r"»OWLI\ATES(WXHI r VYu)'; 

M-AUS’- .1 I'-COORniNATESC VXR, Y Yin ,* 

I._c '• W ' I N A T F S ( V X L , Y Y H ) * 

T < V R* I I'—COO Rt) I N A TES ( VXL,VYL)? 

E A K (Hi i' T M AGE,* 


\< 1 


"iki< SET— DEPTH— FLAGS ( FFLAG, RFLAG] ? 

i FFLAG, RFLAG; 

F R 0 N T _F L A G : = F E LAG; 

RE AR— PL AG : = RFL AG ? 


P R M C E f • 1 1 R fi SET— VIE W — D E P T H ( F P D , 9 P D ) ; 

REA!, (• PU, HPP ; 

BEGIN 

F 7 -CLIP:=-FPD; 

R7-CL1P:=-RRD; 

Kf»n; 

PBMCKl’URE SET— I TM— TO— I DENTI TY; 

DIG] K 

INTEGER I , J ; 

FUR T :=1 STEP 1 UNTIL 4 03 

HFG1N 

F OR J : = 1 STEP 1 UNTIL 3 DO ITM 1 1 , J] ; ~ 0 j 

If 1 \ = 4 THEN ITnCI,I3 

end; 

END; 

P P 0 C E D U R E T PANS L A T E_I (TX, T Y , M ) ; 

REAL rx,TY,n? ■ 

BEGIN 

■I 'l Mi 4,1] : s'l TMf 4, 1 J +TX; 

D m [4,2] : = IM£4,2J *T¥; 

ITM C 4 , 3 J :=ITMt4,3]+TZ-; 

^ D: ' 

P R 0 C E D U RE ROT ATE -I ( AX IS , TH E A I A ) ? 

INTEGER AXIS? 

REAL T HEAT A; 

BEGIN 

INTEGER 11,12 
REAL ARRAY TE 
PEAL ARRAY 




*■ 1 ■■ H j i ;= 13 n-;p i 
" ‘ k::= i step i 

11,12) ;=0; 

1 1 A X l S , A ,< r S ! ; = i ; 

I I :=M 0 P(AXIS# 1)4 3 
3/:=yOD( T 1 , 3 ) t j ; 

111,111 :=:r; 

I'M 12 , ? 2 J :=C ! ; 

T" u.i ,!?] :=sr* 

II U2, ID : = -STJ 

“ ' ■ 1 STEP ,1 


UMi’IL 3 ) J 

UNTIL 3 33 


U N 1 1 1, 4 33 
1 STEP 1 UNTIL 3 


END, 


(•'ip II! 

r; m; 

KUP J 2 : = 1 S T E P 1 UNTIL 3 03 

BEGIN 

TEMPI i2 J : =0 ; 

£0* K:=J STEP 1 UNTIL 3 DU 
r . m 1 KMt * n 2 j : = T£MP f f 2 J + I TM [II , K J *Tm l K, I 2) ; 

FOP K;=l 

end; 


PRofrElWRK SCALE 


K^'„ S1 ' EV ' SZ; 

integer i; 

euk i :=i step i until 4 do 

H p fj J Jj , 

J ’ ‘ttmi 1 ,1 j : = i TM n ,1 J *SX; 
iTMf 1,2) : = itm u ,23 *5Y; 
IT M 1 1 , 3 3 : = ITMI. r 3)*SZ 

END; 

END; 

PROCEDURE BEGIN. XFORM; 


STEP 1 tJM If L 3 Dj ITS [ 1 ) , K j : — T E M P r K i » 

iisx,sy,sz); 


INTEGER I,J,K; 

FOR I:=l STEP 1 UNTIL 
OR vj:*3 STEP 1 UNTIL 


DO 
D 3 


CTM [ I, J j i =0; 

FOR K 1*1 STEP 1 UNTIL 3 D3 
f . no # CTM r 1 , J] S = c TV i I , J ] + I T M r I , K J * V PTM X K , J 3 ; 

FGr'j:*! STEP I UNTIL 3 00 C r* ( 4 , J J : *CTM (4 , J J f VPI m T 4 , J I j 

SET-.rTM.Tn_i oenti ry ; . . 


(IRK E M D _X FIRM; 

i ; TP GER I ,u; 

I »■ i; = l STEP ) UNTIL 4 
1 * G ; = < STE D 1 UNTIL 3 

c ; Li, j j :*vptm f I , j l ; 


DO' 

00 


; " El’ URE C KEATS -SEGM ENT( SEG. NO J ; 
i. i EGEP SEG— NO; 

i \ K C » f * ■ ■■ ■ . 

. IE CURRENTLY. OPEN > 0 THEN CLOSE-SEGMENT,* 

IK 3EG.N0 < 1 OR 
SEG-NO > MAX.), I Mil THEN 
BEGIN ■ 

OUT TEX !’ ( ” OPENING SEGMENT WITH INVALID SEGMENT NUMBER" ) ; 

GOTO LAST; 

E no; 

JF S) ZE f SEG.NO] > 0 THEN 

' BEGIN 

OUT TEXT ( "OPEN IN G SEGMENT THAT EXISTS Af. READY” J ; 

GOTO LAST; 

END; 

START 1 SEG.NOJ ; =DF.FREE? 

S3 ZKISKG.NQ J :-0: 

V ,IS1 B1 LtTV f SEG.NO] ! sFALSE* 

rnpr’FHTi. v.upen:=seg.no; 

LAST! 

ELD; 

PROCEDURE 
BEGIN 


CLOSE -SEGMENT; 


if CURRENTLY -OPEN = 0 THEN GOTO JiASTJ 

CURRENTLY— OPEN • = 0j 
DELETE— SEGMENT CO ij 
START CO] !*DF.FREE; 

size! oi i*o; 

LAST: o ' s- ■ . •. . 


$ro£edure 


D EL ET E JS6 GM E N t C S EG -W 0 } ? 

um e« s^H0, ., • " 

IN' 



t'Kfi?; . : , 

PUTl’E'X T C " DKliK VI MG SEGMENT WITti INVAwlD SPGME^i .< U iMB e. R " •) 
GOTO LAS r ; 

fad; 

(£ CURRENPLlf OPEN V= 0- THEM CLOSE _SfiGMKf.iT; 

IF SJZEISKG-MO] =0 THEN SOTO LAST: 

KUTlsSTARTCSEG-Nm ; 

UUGTHtsSIZEtSEG.NQ] : 

GKT: = P(I 1 ’+LSNGTH; 

'WHILE GET < OFFEREE DU 
BEGIN 

GET-INSTRUCTION (GET, UP, • 

. PUT«.INSTR ! JCriON(PUr,Op,;(,Y); 

GET: sGET+l ; 
puT:*pur.+ i ; ■ 


OFFEREE jsspur; 

for i:so step i until max .limit do 

* 

IF START m > START CSES.N 01 THEN START [T ] ;; 
STARTClJ-SIZECSeG.NO]; 

SIZE t SEG-.NO ) :=o? 

IF VI'S-l8ILirTtSEG.N0J THEN. 

BEGIN 

ERASE:* TRUE? 

VISIBILI TY [SE3.N0 J JsFALSE? 

END? 

LAST: 

•END? 

PROCEDURE PUT.! NSTRUC TI ON ( POS , 3 P , X , i ) ; 

INTEGER POS, OP; 

REAL X, Y? 

BEGIN 

Pf.qpcpqsj;*Qp? 

FN0I 

PROCEPURB SET.INSTRUC MON ( POS, OP, X , t ) ? 
NAME^OP/X.Y; 

INTEGER POS, OP? 

REAL X,Y; 

BEGIN 

QP:=DF-.OP(POS); 

x:=df.xc.pos); 

y:sof.ycpusj; ' 


u; 


L i Ml R E DEL E T E -A L L .S E GM E N V i J 


l -VEGER T ,* 

STEP 1 UNTIL MAX-LIMIT DU 

’START [I J :=l; 

SXZECi):su; 

flu; 

CURRENTLY-OPEN:=0; 

df.free:=m 

ERASE SSTRUE? 

E :H); 

PROCEDURE POST.SEGMEN TC3EG.M0) ? 

integer seg.no; 

n IK SEG.NO < 0 OR 

SEG.N0 > MAX JL l Hi T THEN 
. GOTO LAST; 

1 F CURRENTLY .OPEN > 0 THEN CLOSE.SEGMENX? 

VISIBILITY tSEG.NO] I=TRIJEJ 

LAST? 

END; 

PROCEDURE UNPOST JSEGMENrCSEGwNOi; 

integer seg.no? 

BEGIN 

IF SEG.NO < 0 OR 
SEG.NO > MAX -LIMIT THEN 

vx § I RILI TY? 5EG.ND J t i 

LAST: v-.^' ' . . r* 

end; • '’L" r ■ 

PROCEDURE UPDATEjDlSPLAfr 
BEGIN - 

INTEGER Ij 
IF Ef 







I /„ # •** #\ ii f hif » i? „ ’Jf 4 ‘ - 

BXCIi :-VPTX| 


' ' I’E > [l J : = TRUE; 


it L 5 E 
BEGIN 

PAIMTEDri/j j =FAf,SE'? 

ERASE S^EALSE? 

ELD ■'• 

ELSE 

higil 

i^ R «US?rf fBP 1 ^ AX -Li MI'J’ uu 

f /. 1 *• 1 I i V= P a U D V 151 B I L I T Y [ , 1 ] A i, 0 N Q T P A x ■» T r. 

H E (» I N 

£* J^5?? T(STAtmi 1 oST^FIHJ ); 

PATM TED f I J ;=TRUE; 

E w D ; 

KNI); 

► 

PROCEDURE J Ml ER P RET ( F I R S T , X I D I’ H J ; 
iftTKGEP EIPSf,*ll>IM? ' ' 

BEGIN 

I MFC FIR I , LAST , IP; 

Ri* AG X, Y; 

I.A.ST: =KtRS r + i* I0TH-1 ; 

£DP is= FIRST STEP J UNTIL LAST DO 

BEGIN 

GET-INSTRUCTION (I, OP, X. Y); 

IF' 9 P ;2 THEN show— l r n e ( s V IX , s v tv , x , y j ; 
s v i x : =x ; 
svty : =y; 

end; • 

END: . ■ 

PROCEDURE: A— MOVE— J ( Xf Y.r Z) ; REAL X,Y ,Z; 

nr a? i If 

CXsaY; 

C 2 1 •* | 

DO— CURRENT— TRANSFORM AT fJN{,CX,CY f CZ) ; 

C L 1 P— LEFT ( 1 , VPT X , V P T Y , V p V Z ) ; 

END; ■ 

PROCEDURE R— MOVE— T(DX,f)Y,DZ); REAL DX,DY,DZ; 

TEG IN 

Cx:=cx+qx; 

CY : ~c y -i )Y; 

C 7 : ~C z + iZ ; 

1 ' lc» ; ! R E s' T- P R A N SF 3 R M A T 1 3M ( CX , c y ,C Z ) ; 

_C. rp-j Ff.’T(i ,vptx,VPTY, VPTZ); 

" ( : T • 1 1 1 ‘ i'- A-LILE-3CX, Y,Z); REAL U,Z; 

C X : r x ; 

CY : =y? 

C 7, * — 7; 

DoIcu'rRENT— TRANSFORM ATI DN (CX#C5f »CZ) : 

CUP-LFFTI2, VPTA, VPTY, VPTZ) ; 

.•I Hu: . 

■L'lCEDDRE R-rJNE-R fOX, DY,DZ) ; REAL OX, DY, DZ? 

BEGIN 

fix :=CX4DX; 

CY:=CYH>Y; 

C 7 : =(’ 7 + 07 , • 

! I ' 1 C l ' ! \ R E N r - r R A N S F D R M A T 1 3 M ( Z X , C Y , C 1 ) ? 

CL1 t’-LF.FT(2, VPTK, VPTY, VPT Z) ; 

•7 i' 1 ,' - ' 

PROCEDURE A— POL Y GON-3 ( AX » A Y, AZ„N ) ; 

-iEAL ALLAY AX,AY,.U; 
l ■ TEGFR ft; 

31* L L . 

INTEGER T ; 

REAL TX.TY, TZ; 

REAL ARRAY RX,BY,BZtl J 4J 1 
CX:=Axm,\ 

C’YjsAXllj; ' 

CZrsAZtn ; 

FOR T :®1 STEP i UNTIL N DO 

BEGIN 

TXS-AXf II; 

TYSaAYUJ ,* 



J « i EGE R 1 ; 
rt'iw, r X, 7 Y,.CZ; 

f a : r a > i i j ♦ c x ; 


'i' Y : = ft i f i ] f c y ; 
i ! ' ?• : = A z { i ) + c?.; 

!’ ;iR ] : = j STEP 1 

6 h C .1 L 


UNTIL 


cx:=axuj +cx; 

c Y : =AY C T 1 

CEssAZf 1 1 id; 

n x T ] ) • - 5 p -f x •* R A w s 1 F i 3 R M A r r 3 H c c x , c y , c z ) : 

BY III :=VPT7; 

BZtn : = VPTE; 

END? 

CX : =tx ; 

C Y : = t y ? 

C?.:sTTi 

FULYC(!N(fU,UY,fV.,N); 

-nd; 

^ r n f b : d u r t : p ; i f , v a r j n ( a * , a y , ajs , n . ) ? 

'PAP ARRAY ax, ay, at;; 
integer m; 

:uM;r» 

integer i; 

PEL AG : = TRUE ? 

COUNT-OUT :=(»; 

LAST-LCX: =LAST-RTCX:=[,ASr_OCX:=LAST_TCX: 


= L AST-T.C X : = L A S T JR RC a : - L hS i _f i 


AX[N] ; 

LAST-LCY J = L A ST-RTC Y I = L A ST -BC Y ; = LAST— TC Y : = LAST _RRC l ; = LASl _F! 

|>4f 

I.ASTi£cil=LAST-RTCZ: =bAS r-BCZ: =LAST-TC 7 ,:=LAST-RRCY,; = LASi -Fi 
AZ[N] ; 

for l:=l step 1 UNTIL N OJ 
CUP -LEFT (2, AX m , AY [I] , mil )? 

IF COUNT-OUT > 0 THEN 
£MP-l.K.FT( 2 ,Xnm ,YBm,Z 3 Cll ) ; 

COL /C-OUT :=C 3 !JNT-OUr-l ? 

• n ELAC:=FALSC; 

«'F COU LI-OUT c 3 THEN 30 TO LAST? 

!:•' CCiivr-Oiif > = 32 THEM 30 TO LAST; 

I !• ^ l RE -FRAME THEN \ 

b i:„, („■» ] f; 

LI -PROJECT! ON (CO UN T— OUT , XB C COUNT— 0 UT 3 , YB I COUNT— Li U i ] . 

>■! ICCLJNT -LMJTJ) ? 

FOR 1 ; =1 STEP 1 UNTIL COUNT— OUT DO 

no-pRojEcrroNtoppm ,xam ,Y9iij ,zbiij); 

ell 

fj.se; 

BEGIN 

IF CLOSED-SURFACE THEN 
BEGIN 

IF I S— BACK— FAC E THEM GO TO LAST; 

IF HIDDEN-FLAG THEN 
BEGIN 

TRANSFER— TO— C ( COUNT— OUT, XB [COUNT— OUTI .YB [COUNT. 
ZB [ COUNT— 0 U T 1 ) ? 

FOR I : = I STEP 1 UNTIL COUNT-OUT DO 
TRANSFER-TO-CCOPBin ,XB[T] ,Y8tIJ 

END . 

ELSE 

BEGIN 

DO-PRQJ EC T ION ( COUNT -OUT , XB [CQUN T— OUT J .Yri[COUNT, 

ztitcouNT.ourn; 

FOR t:*l STEP l UNTIL COUNT-OUT DO 
DO-PROJECT ION COPOHJ ,XB£I I r W U ] , IB U J ) > 

- end; ' 

END 

ELSE 

BE ; 4 |||||| >ir ./: , -o;*r,xrUcou t /,_jiir] ,YiicouNA-^ji 

TRAN Iri LtiSct feS I H yiS Mil Jvi& t I u #• 


iOUTJ 


hi; 


i teger r? 

; ‘* -rnsc j 115 )7o5S i/i 333 ; 

V:=SIN( 3.1415926553/1303; 

lv « SZ ! \ ? ■ 

y ; - 0 * 

A_Muvb:-3cx+rx,TY, rz;,* ' - 
| , 1 j'[: J : = 1 STKP 1 UMTI L 3 6 2 DO 

TRX:=x*:r-Y* k sr? 

TRY :=Y»cr+X4ST; 

x?=trx; 

Y : = !'K y; 

A.UHK.3(Xf n,\¥Ti, IZ)t 

K u 1 ) ; 

EiJo; 

p RQ C FI DURE S E T - V P T M - T 0 - I D E N T 1 r Y ; 

8 FI. L I :‘i 1 

INTEGER I , j; 

Fi)R j; = l STEP i UNTIL 4 DJ 

H I 4 G I N . . ■. 

•j'0 R , J: ~ l „* sri *-0 J 1 UNTIL 3 DJ /PXMUfJ)! 

t ME 4 T iE'M VPTMl 1,0:=!; 

fc.M); 

END; 

p dure Translated cx, y, zj ; real x,y, z ; 

• Br.GlN 

V PT H [ 4 , I J : = V PTM [ 4 , i J + X ; 

V P T M [4 ,23 S = VRTM [4 , 2 J +Y; 

VPTMtl, 3J:sVPTM[4,3j+Z; 

END; 

P R 0 C E DURE ROTATE— 3— X tSINA, C.OSA) ; REAL S I N A , C 0 S A J 

BEGIN 

INTEGER I; 

REAL TEMP; 

BE§lS : STfc:P 1 Urm ' 4 03 

TEMgssVprfm ,2) *casA-Yprvi[ i . 3 j*si>ja; 
VPW 1 , 3J S=VPTM[I,2 J *SINAf VPTMf I, 31 *Ci3SA 
VPTMiI ,2i ;=TE mP; 

end; 

END;. 

PROCEDURE ROTATE— 3— Y( SI WA, COSA) ; REAL SINA,CUSA? 

. ‘ t' ; » 1 . . . ■ ■■ 

f NT EGER I; 

HEAL TEMP? • 

E' P 1 : = t STEP 1 UNTIL 4 DJ 


u-:g ! 


r.UO ; 

’’ K’EUD RE 


TKy.Ps=VPfMll ,1 I *C0SARVPrMtI,3]*SINAJ 

Vi I *11 , J J VPTMII ,1 ] *SINA+VPTM[1, 3J *COSA; 

VPT t t , 1 J : = T E m P ; • 


ROT ATE-3-ZC SIMA, COS A) ; REAL SIN A, COS A? 


INTEGER I; 

H (■ A I, 'TEMP ; 

FOR f :=j STEP 1 

begin 


UNTIL 4 DJ 

.,11 *CJ 

VPTM 11 


temp:=vptmu ,i i *CQSA-vprM[i,2J*siNA; 

'TMll, l ) *sm + VPTMfI, 2 ]*C 05 A; 

Mi fl * ■ / ■ 


- rM U'2i»z+cTMr4,22 ; 


VPTM [1,2] . . _ 

VPTM r 1 , 1 ] :=TEMP; 

END; 

END; - . 

PPorEDURE DO-CUR REN T-TR AMSFORM A T ON ( X , Y , Z) ; REAL - X,Y,Z? 

BEGl N ' . ' 

V f'TX • = C TM [ 1 ,lj*XtCTMC2,n *Y>: 

V n TY :=c !’M 1 1 ,2} *X + C TM C 2 , 2 1 ♦ mi >* , & j # 

# V PT7,:=C TMll, 33 *X+CTM C2 , 33 * Y tCTM C3 , 3] *Z+CTM f 4 I 3 J t 

PROCEDURE CLIP-LEFT(-OP,X,Y,Z); INTEGER OP; REAL X,Y,Z,‘ 

begin 

MAI, NEW — TFS T—X , OLD-TEST— X, X -CLIP , Y— CLIP , Z— CLIP; 

NEW„TEST-X:=WXL+XLM*Z? 

0 1 i !) -I E S V— X * - W X L + X ti M * L A 5 T — LC Z f 

IF (X >= MEM-TESTD AND LASf-LCX < OLD-TEST-X) OR 
IX <= LEW-TEST— X AMD LASf-LCX > OLD-TE^T-X) TjiEN 

BPG1M 

Z-C L I P J * ( C L A S T-L C Z ) ♦ ( x *L AS T -LC X ) ♦ t Z**’L AS TUC Z I * C W X'l<* 
}T/(a-LAST-LCX)- < Z-LASr-LCZ)»( x LM))I 

vIXLT P;®GET—Y— CLIP (LAST— LCX, LAST— LCY, LAST— LC3A*X, Y*5 

W-iiMi- " 

c Sldt 



LAST^LCX 

* St jCili IP#, 


i i- X 


i-; t>' __ r tx s r . 


'XL./, Cl I P.k ! ;.,!i i t ;.p. 


v , x ) ; 


• r ; ul!l ' 1 '' L'l iP.iUGH’J l DP, X, i yZ) ; INTEGER UP; REA L; X, i , l> 

:lip, y _c l i p , z_c lip? 


; I C'jKft, 

.TE 


.TESr.X,OLO.Te;ST.X,X. 

~ 1 - _J :.,S T.X : = a A M + X H . t Z ; 

D.TEST.X:=JiXH*Xrtv*LASr.-RrCZ? ' 

; U <= f| NE« F TE5T.x and last.rtcx > uld.thsi’.x) o« 
f ' >= W.tW.TEST .X AND LAS f.RTCX < OLU.TKLr_Xj fifS* 

. ' ;i I*. ( l 1 vi ■ 

< LASTjRTCZ ) * ( X-l.AST.HTCX J + 17.-I.AS i’.RJ C Z J * i a,t- 
Wu t .R1 c. X ) ) / ( ( X-L A S T.RTC X ) - ( Z - 1. AS f'.RTCZ J + ( X. u ' ! t ) i 

X C L T ; f ; = .V” X 1 1 +■ X Li M ^ 

7 1 ' 1 « : y 3 £ M r c b T p ( u A s T - R r " * ' A s T - p T ”^LA s r .k ica,a,i,z, 

{•-A Llv f & JZ L 1 p ) ; 

f F LAST .RTC X > OLD.TES T.X THEN 
£ -» P-gOTTOMC 1 , x «Cl J I P r -Y„= LIP,Z.CLIP) ELSE 

cli p.Borro.vcop, x.clip, y.cltp,z.c.hp:> ,* 

k fo 1 ) ; 

last.rtcx:=x; 
last.rtcy : = Y7 

L AST.RTC7* 1 — Z * 

XU»*' F X "" <=V ">^ ;W -- Pt ' ;S,, ‘- x THEN CL f P .BOTTOM ( Up , X , t ,1.) ; 

>^ A f' GET.Y.CLJPCXi ,U t M,U ,12,7,2 , 7. .CL I P, X-CLip i ; 

'O'. *» iYl ,7,1 ,X2,Y2,Z2,Z„CLIP, X.CLIP? 

14 LG IN 

IK ABS ( Z2-ZI ) > EPSILON ['HEN 

gN SHrtiKflgHHair" 

PROCEDURE CLIP.83TTQM(OP,X, Y,Z),* INTEGER Op,*REAL 

BEGIN ■. 

PEAL NEW.rE s r.Y,OLL.TESl_T,X_CLir;Y_CLlP.Z_:[.lP; 

N FW.TES T.Y : * H Y L+ Y L m * 7 ; 

OLD.TES r.sr i * M YL + YL V. T L A S r .3C Z ; 

IF (Y >= NEW.TEST.Y AMD LAST.flC Y < OLD.XEST.Yj OH 
. (Y < = NFW_TESr_Y AN P [, AS T.ftCY > OLO.TEST.Y) THEN 
BEGIN 

?,_CLIP: = Ct,AST_BC?.*t Y-LAST.BCYJ + (Z-LASr„BCZ) *1 t»YL-LA3T J3C Y ) ) 
/( ( Y-LAST.BC Y)-(7>LAST_BCZ) *( YLM) ) ; 

V„CLTP: = «yl + TLM*7,.:MP7 

X _C L 1 1 ’ : ~ G G T _X .C L I P ( L ft S T _»8 C X , L A S T —B C Y , L A S T _JJ C ^ • X . Y , Z , Z _C L I P r 

iFV.Atfl'lftCY < 0 LD.TE5 f _Y THEN 
f 1. 1 y_.l’OP(l ,X-CLIP, Y.CLIP,Z.CHP)ELSE 
CI-I P.rnPioP, X.CLIP, Y. CLIP, Z. CLIP) ; 


!• i'j D 

i • C.'-hCx: =x; 
h.ast.hc y : - Y; 
la.st.bC-z: = z; 

IE Y ->= NEW. TEST./ THEN 


:lip.tdp(qp,x,y,zj? 


r, • • h ; 

k-ik'HJURK CLIP-T3P(0P,X, Y, Z); INTEGER OP; REAL X,t,U 

Whv. I H ■ ■ : 


REAL NEw_rESr_Y ,OLP. TEST.! ,X_CLIP,Y. CLIP, Z.CLIP? 

* EW.TEST.Y : = »YYHt YHM + Z; 

ni,p_TKS r.Y : = jfYH + Ynw*LASr-rcz; • 

if (Y <= MEN .TEST „Y AND LAST.TCY > OLO-TEST-Y) OK 
(Y >= N EW.TEST.Y AMO LAST.TCY < OLD. TEST. Y ) THEN 

it EG IN 



Z.CLIP : = l ([jAST.TCZ) ♦( Y-LASr.TCY) + CZ-LASr*rCZJ*C«Yrt-LAST.TC 

/( ( Y-LAsr.r:Y)-tz-LAsr.rcz)*c yhm)) ,• 

Y .C L 1 P : = a YH t Y H M * Z„: L I P ; 

■ X.C LI P .* s 3ET.X.CLIP ( LAST.TCX, LAST.TCY , LA ST jtC* > X » Y » Z . Z.CL IP 

Y-CLIP)? 

IP LAST.TCY > OLD.JEST.Y THEN 
CLIP.RF.ARC1, X.CLIP. Y.CLIP, Z.CLIP) ELSE 
CLIP.RFAR(OP,X.CHPf F.CLIP , Z-CLIP) ? 

end; 

LAST.TCX S*Xy 
LAST.TCY !=Y;, 

LAST.TC Z ! S Z; 

IP Y <s NEW.TEST.Y THEN CLIP JREARC0p # X ,tj Z) ; 


BEGIN ■ ' """ ' ' c v - " " 

IF ABSI Z 2 -Z 1 ! 

GET.X.CLIPSS! 

•x?e X SEt*x:=HS>:4i!. 

r *-/>.. ,-fe ' r ^mi3MML ..... 

OP ? REAL K,f 't % J 


Y 

f 




EM!) 


0 L G 1 f4 ■ ., ' ■ ■ ■ ■ 

? 7 i 7 ‘ ,w .Ff2 r CUIP AN I ) uAST-RHCZ < R7,-CbTP.) OR 
} ,• ,-5~ •'Z-cLlP AMU LAST-RRCZ > RZ-CLJ.P) VHSN 

PEI.-Z: = (RZ-Cl.IPrI>AST«RRCZ) /( ZH, AST-KRCZ J > 
5 -£ u JF:=1, A S r —R R : K f- Dsi I, -?,*( X - 1 , A S T_K K c X ) ; 

V ?( .. Ill P: = liAS T—RRC if 4- Dii!j_Z* C V-LAST P w C Y ) ,* 

n ijAi’T—RRCz < then ' 

£ ' l P-F H0NT(3P,X _C til ? , y „C L I P , R Z.C L J P ) if, st 

CLtPjFRON f OP, X .CLIP, y_.CHP, RZ_ef,l» ) ; 

END; 

t.A.sr_RRCx:=x; 
t, as r_RRcy : = y; 
t,ASr_RRC7.:=z; 

IF i >s RZ.CLIP THE M CLI P_F-arWT ( OP , X , * , Z) 1 

»!.<• Iv 1 ) ■ ■ 

ELSE 

CLIP.FRON T(t)P, X, / ,Zj ; 


PK^hcmiFF CL IP_.FR i in TOP, X, y , Z) ; INTEGER UP; P E A U X, Y,2; 

REAL l)EL-Z,X ?r CLIP,y.CUIP,i-i| J iP; 

IF l- RON OH, AG THEN 

BEGIN 

IF CZ <= FZ-CLIP AND LAST-FCZ > FZ-CL1P) JR 
(Z >= FZJCLIP AND LASF-FCZ < F7..CLTP) THEN 
B t G f. N / 

DEL.Z : = ( F 2_C I, .1 P -L AS T„FC Z ) / ( Z - L A S T _F 27 , ) ; 
X-CLlP:=LASr_F:x+L)Eh_Z*(X-f,ART_FCX); 
y_CLlPi=LAST«.F:y*OSL_Z*( Y-t,AST«Fm; 

IF LAST-FCZ > FZ.CLIP THEN 

ST ORE_InS truct i dm u , x_c lip , y_c li p , fz_:l l p J EL£>£ 
STORE_I NS TRUCTONC DP, XOL IP, Y_CLTP ,FZOOO) ; 

END; 

HIKES *=5 ; 

LAST-FCY :*Y; 

LAST FCZ t~Z * 

, . IF Z*"<= 'VOCLIP THEN STQRE-I NSTKUC TI ON C OP , X , * . 7, ) ; 

h WO" 

EfjSK 

STORE— I NSl’RUETI ON (OP,X, /, Z); 

eM*; ■ . 

'’UtiC'r.iMIPE S TORE — I NSTRUCTID.fi I 3P , X , V, Z) ; 

! TEG'O Op; • 

P OL a, I,'?'* 

vMJi 

It* PEL AG THEN 

iV'AP'i 

.cotiNTjDurjscouN ioour+1 ; 

IF COUNT-OUT < :n THEN 
REGIN 

opr t count— outj :=op; 

XB [COUNT -OUT] J = X? 
yBCCDUNT-OUrj: SYJ 
ZBtCOUNTOLJr] : = z? 

END; 

END 

ELSE 

BEGIN 

DO— PROJECTI ON (OP,X, Y, 2); 

END; ' . 


Euu; 

PROCEDURE DO— PROJECTION (OP, X, Y ,2) ; INTEGER 

REAL X , V , z ; 

BEGIN . • 

' HEAL PXfPY? 

IF PERSPECTI/E-FLAG THEN 
BEGIN 


OP , 


END 

ELSE 

BEGIN 


px:s(x*strz«z*svx)/(strz-D; 

Pi !5( 3f*SVZ-?E»SVn/( SVZ-l); 


PX:=(X~Z*SYX/SVZ); 

py:*( y-z*sn/sfzn 


END; . , 

. ^ DO_VTEW|MG^TRA«SrQR»AfrOltCOl>,n, 

p ro6 e d u re n ei-vi emi n G-C ons r an rs ; 

mwmm* 

wy:*v 






ATT jm COP, X , Y } ; t N-fEGER UP; 



real vi’x, rm 
v t x : * w v s x ♦ x + n v tx; 

v '!’ V ; ~ j V 3 V * Y f a V i.’ y ; 

:;. J . 7 ' v - ! r i * y — » p t : .m i : =sj zktc or rewtly 

K" ' - J ' 1 COf.FRr'E, ]?, VTX, V'YI; 

Ol- ..FREE : sOF^F'REE+.l ; 


-OPEN f + l 


SHUa : _Ii T N E C X l , ¥1 , X2 , t 2 ) ; REAL X 1, Y1 , X2 , i2 J 


T ft A N S 1 1 i „2 0 3 R t) I N A T E 3 (X , Y ) ,* l M T E G hi ft X , V j 


INTEGER XI, /I, 

( H ! T C H A R (, C i 1 A H C 2 9 j ) ; 

x l :=X1 +0.S; Y [ : - v i hi. 5; 

TRANSM T r„Cr>0Kl> I .V A f ESC A I , YJf) ; 
XI : = X H 0 . t> ; Y I : = Y 2 + 0 . 3 ; 

•i raws mi r„cn!)R!>'i vrtcs(xi , ni; 
OU ITH AR ( CHAR ( 3 1 J ) ; 

BREAKOUT IMAGE 7 

END,* 

procedure 

BEGIN 

DUTCH ARl CHAR ( Y// 3 2 + 3 2 3 ) ; 
o U T C H A R t C H A K ( m Cl D ( Y , 3 2 ) + 4 6 ) } ; 
DIITCHARCCilAR(X//32 + 32 J) 7 
Oil TCHAD ( CHAR ( MOL)CX#32Jf54j ) ,* 

END? 

BOOLEAN PROCEDURE IS..BACK..F ACE; 

8 EG IN 

INTEGER LM , I f V 1 , V 2 7 
REAL SDX,SDY,Sd£, 

XVI ,YVl ,ZV1 , 

XV2,YV2,ZV2, 

NX,NY,NZ, 

oik; 

IS^BACK.FACSisTRtJE; 

Kris 

BEGIN 

IF XBCtJ < XRLM3 

END; 

If PERSPFCTI VF-.FLAG then 

BEGIN 

S D X : - S V X ~ X 8 [ L, M ] ? 

SOY : = S'/Y-YB [LMJ ; 

' r.DZ:=svz-zorM]; 


= 2 STEP X UNTIL COUN r_0t!T DO 

f HEN [,3.1 ; =1 ; 


:SYX f * 

:SVY7 

!f.VZ? 


<■' USE 
■’■'G 1 f 

S ! ' X 
.3 •) Y 

• r.D z 

eud; 

X v t : = o ; • 

Y VI ;=(>; 

Zvi:=o; • 

V ) : =i.m; - • 

WHILE ABStXYl I + ABSC YV1 ) + A3SCZV} ) < EPSILON DO 

BEGIN 

IF Vl=Ca»NT.OUT THEN Vl:*l ELSE ¥l:=Vl+l,* 
IF Vl=LM THEN GO TO LAST; 

XVI :=xbi vii -XAfLMj ; 

Y V 1 : = YBl V] I -YBILM I 7 
7, VI SKZRUm-ZSCLMJ ?' 

E N P 7 

V2: = L i' 


,.)1P : = ••»; 


< EPSILON DO 


WHILE. A8SCDIR3 
REG 1 N 

IF V 2= 1 THEN V2t=:OUNT.OUT ELSE V2:=V2-1 ; 

IF V2*Vl THEN GO TO LAST; 

XV2;=XBiV2) -X8CLMJ ; 

YV2:=YfilV21 -YBCLmJ ? 

7,V2:=ZR(V2J -28ILMJ * 

NX:?(rum2)-Cm*«U>f 

HY:sC?,VHXV2)-f ZV2*XV1); . 
NZSaCX'/l*YV2)-(XV|*YVnr 
0IR;»C$DX*NX) + (SDY*NY)+tSD«W5? 

F N D f ' ; ■ - 

IV. > -’-.v. .i >-.p.ack.faCe;=false; 

• >■» * 

PROCEDURE TRANSFER^TO-CCOPrX, 
integer ofrr.-, • ' ■ • 1 -* - 

REAL X/ Y f S* 

BEGI* t 
REAL 



, f 
f .0 1 . c. 


u (•; c ! u ■ 

n K: = ( '(-/.♦r.vx/sv/,) ; 

PV—ty-^tsVY/r.V^); 

y 1,1 1 ’ i 

> n„c( up , px , py , /,); 
u ''! U‘ U ' 1 Z C l,T - r * ~ c 1 ;u ’ # >• * 'i , i) r 

i i j u • f up ; 

HUAI, x,y,z; 

B K 1 ,? IJ>t 

. sue ICKRKI-: i ; 

>.e return :=x; 
vc CCFrekI : = y ; • 

ZC rCFREfl] 1 -zlf 
Cl- R!-;f:=:Cfrf;km ; 

f:wo; 

p WCfr DURE ElI M l NATS. HID I NG; 

BKGl N 

INTEGER MUM* 

lr C Ff».E£ > J THEN 

begin 

SPLIT. I N 1’D.TRI ANGLE S ( M IH1 ; 

compare. ALL. rpi angles! n j Vj ; 

SORrSSAVElT.RI ANGLES! NLH ) ? 

END,* 

END; 

?» 2 £EE U R F: SPIjIT - 1 N T a . r R 1 ANGLES (MUM) ; A A M E M 1 1 M ; i Ml' K 'J K K R 


U 


the c-uuffer" constitutes arrays "ooc , xc , yc , zc" 
this procedure extracts ool/goos one ov one f ro n 
"c-buffer", places polygon temporarily in "n-ou t i e r "■ 

, splits the polygon in toe " o - o u f £ e r '' into rrianales 
and places these triangles into tne " o-nuff er " . 

global variables * op.c , xc , yc , zz> cf ree 

begin • ~ 

INTEGER t, 7 ,'JU-Sll)ES; 

I ; = l. ? 

»>free: = 1 ; ■ 

••'U I, tv J I,E CERES DO 
BEG I'M 

"!I.E 1 ,)EH:=C)PC [I J ; 

REP ?:e : ~ i ; 

c M.‘ J; = l STEP 1 UNTIL N J .SIDES DO 
DEC IP 

I : = l + 1 ; • 

PUT -1 M-tHOPC C ! J , XC U] , fC U I ,ECU 1 J ; 

E N D ; 

SPLIT .Pi) L YG 3 N ! N D .S TOES) ; 

T : = 1 + 1 7 

h M D ; 

N U M ; r ( !> FR £ E « l ) / / 3 ; 

^ * D 7 ' ■ 

P'-ijCEDimS PUT. 1 N.HOP, X, Y, Z) J I N KEGER DP; REAL 

inis procedure loads tup instruction sent through its 
parameters into tne tree .location o £ "n-buf f er % 
tne "b-ouffer" constitutes arrays "opb, xb, yt>, zb" , 

n l onai variables-: opo , to , yo , r, o, of ree 

^ ^ *»«(» ^ws*, *8«Mt -»W»# WMW ««• «>!» 'WW l«M!P ««w «#«» a®««. .«*» ’«P» ««M» ^ iKMW «**** Si»» w* *«»• «»* »P* «** «*#* »»» ««« <«•>» ««•» Wlw *«* ww* «•* **** * 

BEGIN . • . 

UPBtBFUEEl ;=ip; 

xr niFPSEl :=x; 

■ YBCBFPEEJ :sY? 

ZBiHFwEE] :=z; 

BFpKE ; =BFREE + 1 *, 

END; 

PROCEDURE SPLIT-POLYGON ( NO-SIDES) ; INTEGER NO.SIDESJ 

I • «* «• m m m> m m m m m •» •» ** ** -* *• «• «• ^ "* w» *» «* m'm'i* m m'mm'm m m <• **m *m m m «m m m>*» **% ** — w * 

this procedure solits true polygon ' stored -in ttie 
"b-butfer" into triangles and these triangles 
are stored into the ’'a** a it far" . 


BEGIN 

INTEGER I, OPS A YE? 
C)PSAV£**OPBCi] r 
:»l 


m m m ^ im $ 




'| Aw PROCEDURE IU,UE(i.jJ; INTEGER 13; 

I U 1’KGE.R 12, U; 

*2:=13~i; 

X 1 : = I. 3 - > ; • 

{{ H V 1 ,,h ' :: = Art i( t < IT-2J -K3U1 j ) *< Yt'U 1 2.1 ~¥m [ 1 3 J ) )~i iXlU 1* ] 

‘ i 1 ) * ! Y d (I 2 J - Y 8 f II 
1 ) ' ) !**' EPSILON; 


PUT.IN «J>CM,n)? I N TEGE.R. M , N ; 

iuTEGER I; 

FOR I •’ = 3 STEP 1 UNTIL M' DO 

3 !*, G X N 

opoidfreej :=n>Rt i j ? 

X (.) [ DFRFEJ : = KB [I i ? 

YO I D FREE I : = Y M f 1 1 • 

ZnXDFREE) • 

U F R E E : = D F RE £ + 1 * 

END; 

END; 

PROCEDURE SHIFT-INSTRUCTION t Ni , N2 )? INTEGER Ml, M2; . 

13 E G J N 

UPBCN2J ; =OP8 C n 1 i ; 

XH [N2) isXrtffU l ; 

Y b f N 2 J : = Y 3 ! N J. J ; 

• ; .r. [\2j :s?,aCMl I ; 

END; 

[ r AM3L£S( MUM) ; 

INTEGER NUMy 

BEGIN 

INTEGER I, J,K‘,NUM„1 , COMPARE? 

FREE: 5= l ; 

FOR U = t STEP 1 UNTIL N J M DJ 
BEGIN- ■ 

BACK-TOTAL CIJ :=0; 

START. INDEX U J :*£>? 

END; 

MUM.l :=NUM-l; 

for I : = 1 STEP 1 UNTIL (UUM.l) DO 
OOP. J ; = ( If 1 ) STEP i UNTIL NO M DO' 

M- GIF 

CO BRAkF : SCOMPARE-.TR IANGLESC3*1 , 3*0) ; 

IF COMPARE < 0 THEN ADD_.FI RST.TO.FRON f .LIST-Oe .SECOND (I , J ) ? 
IF COMPARE > 0 THEN ADD.FIRST.TO.FRUNr.LI ST.UF. SECOND! J, I ) ,* 



;ek PROCEDURE COM PARE-TRI ANGLES! LVA, LVB) ; 

Tp i • Y A , I , V B ; _ ■ ' 


DEAL array TM1:5,1 : 3J , ra Lt:5,l :3J ; 

II TEGKR COMPARE, I 1 , 12? 

REAR XM1NA, Y'lINA , XMAXA, YMAXA, XMIN8, YMINB, XMAX3 , Y«AXB; 
Fir, ARRAY! TA,L</A); ' f r " 

F U, ARRAY! TB,LVB); 

Xui U A : = rA 1 4 , l j ; 
ymt -)A: = rA[4,;j ; 

X ‘ A K A : = T A [ 5 , l i ; 

Y H A X A : = !’ A f 5 , 2 J ,* 

XKi!in: = !’Rf4,l j ; 
y URH:=TB[4 , 2j ; 

XMAxn: = r6i5,n ; 

Y M A X rt : = r B [ 5 , 2 J ? 

Compare :'=(); 

!>' (XMAXA - EPSILON) < XMIN3 OR 
( YMAXA-EPSTLON) < YMINB OR 
(XMIMA+EPSILON) > XMAXS OR 
( YMINA + EPSUjDN) > Y^AXB THEN 



GO TO LAST; 

J 1 : - J ? 1, 2 5 1 

felli'I.E' ( COMPAREsO AHO Il< = 3) DO BEGIN, 

COMPARE* -COMPARERS I DEC I1,I2,TA,TB); 

I i: =11+1; 

IF Il = i THEN n*»l SL-SE I2JSI2+U 

END; 

h Co - >ARf F, D - THEN C3MPi.SE:sC0MPARE.IF^C0NTAJLNtDl Tfc.fd) 
LAST :COMPARE.TRI ANGLES! «eflr m ARE? 

OCEDURE FI l, ARRAY ( AR Y, IDJC) ? REAL ARRAY 'ART? INTEGER IOX? 


BEG I 


[23 


DO 


END 


x- I 5 = XMAX:=JtDtioxj ; 

\ I !SV *AX:=fR[ I!)*] ; 

/. r<::~z«kK-~Z\)[ t : > k 1 ,* 

!• ■;!< i j: = i srsi> i u, . rib 2 

**> r- V> l ** 

l 2:=iox«j + n ; V 

’» , EMP:=Xf>i:i ? 

IF TEMP < X'UM 
XMAX:=TEMP; 

TEMp:sjfD[ (2 I ? 
if i’fmp < y i i >i 
y iaxi=temp? 

T E m P : =Z '0 f r 2 I ,* 

i f r f: m p < z, a i. 'j r h r m z m i r 
Z m a x : = T E *i p ; 

E M (.) ; 

ft KY [4,1] :=xmin; 

Any [4, 2j : = y 

A!f Y L 4, 3 I :=ZMI S; 

AH Y !. 5 , 1 i : = < v A X t 
ARY £ S , 2 ) !=YMAX? 

A (•* Y T 5 , 3 J :=zmax; 


THEM X'iLMssTEMP ELSE IF I’EMP > X 
IREN Y HI M ; = i'S 'ip ELSE IF TEMP > 
fEMP- ELSE IF r.F.vlP > 7 


If-tf'GKR PROCEDURE CDMPARE-.S-I.DSUl , U,TA,TB7; 


I T tv (I E« II, l 2? REAL ARRAY T A , 1’ -i ; 

BEGIN 


REAL- XMINS, YMIMS, XMAXS, YMAXS, 
XMINJS.XMAXJS.YMINJS, ymaxjs, 
YU,ZlA,X2A,Y2A,f2A, 

v 1 o •? 4 o yoa vod « ^ » 


X I A , , 

XlB,YlB,7.tfl,X2B,Y2R,Z2B, 

Ct ,02,0, X f Y,ZS,ZJS? 

INTEGER jI,J2»C0MPARE,RSti-J)EP; 
XMiNS!=xtA:=rA[Ii , 1 J ; ' 
XMAXSS*X2A: s rA( 12, t j ; 

|| XMINS > XMAXS J’HEM 

Xfy'iA XS : = X 1 a ; 

XMINSs=X2a? 

END? 

Y m t m s : - Y 1. A : = T M l , 2 J ; 

V AXK: = Y 2 A: = rAt.t 2 , 2 J ; 

.1 V Y L T < 4 S > YHAXS I* HEM 

0 ■: G I 



XMlNJSraX18: = T8't J1 , 1 J ,* 
XMAX JS: =X2B: = TB C J2 , t 1 t 
IF XMIMJS > X 4 AX' JO f HEM 

BEGIN 

XMAXJS : =X 1 B; 

X 4 1 M J s : = X 2 B ? 

END? 

YMlNjS* =Y1A:=TB[ J1 , 21? 
YMAXJS:=Y25:=TBtJ2, 23 ; 
IF Y M I N J S > YMAXJS THEM 

BEGIN 

YMAXJS:=YJ B; 

YMIHJS! =Y2B? 


IK- [XMAXS- EPSILON) < XMIMJS OR 
( YMAXS-EPSILOM) < YMITJS OR 
(XMTNS+EPSILOM) > XMAXJS OR 
( YMINS + EPST.LOM) > YMAXJS ’ THEM 
GO rO MEXT-COMPARISIOM,* 

D: = ((XIA-X2A)4(Y16*Y28))-(CXlB-X2a)*(nA-Y2AJJ 
7 K ABS(O) > EPSILON THEN 

BEGIN 

Ct: = (XlA*l2A)-( X2AI ( YIA)? 

11:1 ?|1| til S 3 J II |:||lli:f ItiSg H ^85 

r<<f 3 


( ' - Y . 

Y ( XMAXS 


end; 


^ p r* j K , 

COMPARE: sRSL^DEP? 

k-Wt) ' ' 

else • ' • . 

BEGIN 

ZlAjsTACtl, 31 ? ' 

Z2A:=TAtl2, i J ; 

IE (KMAXS-XilflSJ < EPSILOu 
f i F, N 

ZS:=ZlAM£ 2 A-ZlA)*<¥-n/ 0 /( Y 2 A-YI a) 

ELSE 

ZSS=ZlA*(C?.'24-ZiA3-*tX-X!A>/(X2A-MAi); 

Z 1 R .* = T B t .11 , i J ; 

7, 7 B # ■= T R f n n 

IF (XMAX.IS-XMINJSj < EPSILDN 
THEM 

7. J s : = Z l a F ( Z i a - 7 , 1 6 ) * ( Y - Y i B ) / ( ¥ A H - I I R i 
ELSE 

ZJSs=Zl B + ( C Z28-ZiH)*( X»Xl rt) /( X2D-A3 o .) J ; 

IF A8SCZS-ZJS) > EPSILON THEN 
BEGIN" 

IF ZJS > ZS 
THEN COMPARES:*! 

ELSE COMPARE: =-l ? 

END 
' ELSE 
BEGIN 

CUMPAREssCOMPARE.AT.ENOSC It , 12, T A # T b ) ; 

if compare = o then 

COMPAPE:s-CQMPARE.,AT.£NOS(,n X A) ; 

END; 

end; 


END 


END? 

U V V an r> J 

= 3 THEN .12: = 3 'ELSE' 02 
COM|*ARE.SIDe:=COMPAkE; 


NEXT-COMPARISION: ji : :JH1. 

IF Jl»3 THEN .12: = 3 ELSE 02:=02+l ? 


r.nyi 

INTEGER PROCEDURE DEPTH .TFiS F ( 1‘ A , T ti ) ,* 
REAL ARRAY J* A , T B ? 

BEGIN 

R R A I . Z M I N A , 7 A AXA# Z M l V B , Z M A X 3 ? 

7, -riHA ; = |’A [4 , 31.; 

■ ?, >' ax a : = r a [ s , 3 I ; 

' i..L: = !Y. 1 1,3) ; ■ •- 

A i \ < M ;■=) h 15 , 3 J ; 


It C'LJ ,'IB -ZMAXA) > EPSILON THEN DEPTH.!' EST * = 3 
else JF (ZMIU-ZMAXB.) > EPSILON THEN DEPTH. TESTS = “1 
EliSE DEPTH.TEST:«0? 

S B I ) * . ‘ 

MTEGEK PROCEDURE C OM P ARE.A f .SM OS C 1 1 , 1 2 , T A , TR ) ? 

i v J‘ F G [•' 13 1 1 , 12; 

REAL ARRAY F A , f B ; 

BEGIN ' 


REAL XI ,Y1 ,Z.t , X2,¥2,Z2? 

X i : = t A 1 1 3 , i I ? y 3 : = r A [ n , l J ? Z l : =TA [ I i , 3 3 ? 

X 2 : =t A t X2 , 1 3 ? Y2 : = TA It 2 , 2 3 ? Z2s =TA [ 1 2, 3J ? 

LF INSIDEUI, Yt ,TR) THEN 

f'lMPADE.A F.E L ■ S : = C 0 M P A R E .P 0 1 N f ( X 1 , Y1 ,Z1 ,TB) 

ELSE IF' INSIDE! X2,Y2,?3) T TEN 

HMPARE.A C.E3t)S:=^0MPARE.?OlNr(X2,Y2 f Z2/TB) 

ELSE CnMPARE.AT.EVDS: =0? 



PROCEDURE INSIDE! X, Y, T3? REAL X, T?REAL ARRAY T ? 


END; 

boolean 

BEGIN 

HEAL XI ,VJ ,X2,Y2,X3,Y3? 

I NSIDE i =FALSE? 

IF ( X-T 15,13 ) > EPSILON OR 

T 14,1 I -X > EPSILON OR 

Y~n 5,2.3 > EPSILON OR 

TI4,2)~Y > EPSILON THEN GO TO LAST? 

XI :*'J £1 , 1 1 ? Yls*T l ,23 ? 

X2:=Tt2,lJ ?Y2?=T£2,2j? 

X3 s »T til 1 J #'f I S *Tll # 21 j 

if siGN^Tes'r(x«y/Xi ,n 

SlGN-TEmXlsYli-X^YJ 

if sTgn 

SIGN.TE** 

INSIDES*? 




t.H PROCEDURE COM 
X,Y,X,*RFAL ARRAY 


A: = ((Y!..J2)J(zj-7.2))-((*3-X2)*U1-Z2>); 

R.: = (m-y,<n*oo~x2))-(m-z,n*(xt-x2)),* 

C:~<.m-X2)MY3-y2) J-UX3-X2)*(Yl-y2)); 
ZT2 : -Z3- C ( ( A* ( X-X3 ) ) + ( B* C Y- If 3 ) ) ) /C ) ; 

!!• I X J 2 - 7. ) > EPSILON THEN C OMP ARH-PUJ NT ; = 
IF (Z-ZT2) > RPSILQN THEN - COMPARE-POI NT : = 

£ M D ; 

INTEGER PROCEDURE COMP ARE..I E_C 0 i'ii TA I NED ( TV , T2 ) 
REAL ARRAY H ,T2? 

begin 

REAL XMINl.XMAXl ,YMIN1, YMAX1, 

XMIN2,XMAX2, YMIN2, YMAX2, 

XM.YP-25M, EPSILON,* 

INTEGER REL-DEP? 

COMPARE _IF_CONTAlNED.=:D; 

EPSILON; =0, 0001 ? 
x M ni : = rn 4 , 1} ; 
x ■ a < j : s r H 5 , 1] ? ■ 


Xi'AXi < (X.M A X2 + EPSILON ) AND 
i- 1 > ( XM I N 2 -EPS I DON ) AND 

\X1 < ( YMAX2+EPS1LON5 and 
! .. I > ( Y M I N 2 - E P S T L Q N ) COEN 

OIK 

XMr = (Ti[j,im-iC 2 ,iJfri£ 3 ,in /3 
YM: = (rt(l, 2 J+m 2 , 2 ]+rU 3 , 2 J )/3 

7 " : = ( 1'1 (1 ,33+Tl C2.3J <-n £3,3) )/3 

IF INSIOECXM, YM, T2) THEN 

BEGIN 

R EL _DEP := DEPTH -TEST ( T1 #12 ) ; 
IE REL-DEP \= 0 THEN COMPAR 
COMP ARE„IF«.CON TAIN EDl sCOMPA 


II XMAX2 < (XMAXlt EPSILON) AND 
XMIE? > ( XMI NI -EPSILON) AND 
Y M a X 2 < ( YMAX1 +EPSILON) AND 
YMIH2 > ( YMTN1-EPSIL0N) THEN 

PEG ID 

XM: = <T2tl,l]+T2L2,n tn £3,1 J)/3) 
Y M:*(T2 El, 23 +T2 £2, 2] +mi, 2 j )/3; 
?i H : s ( T2 U { 3 3 + T2 £2 , 3 J f T2 1 3 3 3 > /3* 

IF INSTDEUM, YM,T1) THEN 
BEGIN , • 

REL.DEPj|DE^THyT|STCTI#r2n 

COMPA ONf AINS'Dt ="wOMPA 


«EVAsftEL w pCp ELSE 
M, *M, 4 m»T1 ) t 



r‘ ! • < U LRK LORTSSAVE#Tri ANGLES ( N lHBER-OF-TR I ANGLES ) ? 

; ( ^ER- »F-TtU ANGLES? 

L V'fV: f # TF ST— TR l A nGLE , FROM T — TR l A N GLK , INDEX? 

; ' .Vf_Tn i‘A u :~h; 

STEP i UNTIL NUMBER— OF— TRI ANGLES DU 

IF BACK-TOTAL iTJ=o THEN 
B E Gj.fi 

TESX-TO I'AL: =TES l— fOTAL+1 ; 

TO -t > E-T E-S r R D f T E S V - r 0 T A L J : s I ; 

LINO; • 

}■ i« 0 ? 

ILE l'ES T— TOTAL 0 03 

BEGIN 

Tesr.TRi angle: s-ro^SE-rEsrso-tTesT-f o t al] ? 

RACK-TOTAL C I'EST— TRT ANGLE ] : = -l ; 

TEST— TO T AL S = T£S1 _t d r A L - 1 ; 

1 h 0 E Y. i~S T A R T — I N D E X [ CE S T „TR I ANGLE] ? 

WHILE INDEX \=. 0 no 
BEGIN 

FROfti T— TK I AN GLE : =1 NF J [ I VDEX ] ; 

BACK— TOTAL [FRONT -TR I ANGLE] S =fl ACK-1‘0 r A L ( FEUN I _ L R i AMG L«E J 
IF BACK-TOTAL [FRONT-TRIANGLE) = 0 THEN 

begin 

TEST-TOTAL : = T £5 T-TOT AL+ 1 ? • 

TO-BE-TESTED [ TEST-TOTAL] i sFRONT-TR I AiH,Lt ? 

END? . 

INDE X:sL INK [INDEX J? 

END? 

CHECK-SIDES (TEST-TRIANGLE) ; 

^ ENOj 

f goi EDURE CHECK-SIDES! TRI ANGLE] ? INTEGER TRIANGLE? 

BEGIN 

INTEGER I, SIDES, I DX, INDEX, NEXT-INDEX, OP? 

BOOLEAN INTERSECT; 

REAL ’ X , Y ? 

REAL A A R A X T1 [ 1 : 5 , 1 : 3] ; 

PROCEDURE PUT -T RIAN G L E - 1 N -C ? 

BEGIN 

I : = 3* TR l ANGLE ? 

PUT — I N— C ( OPD ( I I , XD 1 1 3 J3[I] , START-INDEX [TRI ANGLE) J? 

■ •' P _ l — C ( 0 P D C I “ I ) ,XD(1-I1 , YQ[I-lJ , START— INDEX (TRIANGLE])? 

PUT-1 N-CCOPO 1 1 -2 ] , XD [ 1-2 ) r TD C T -2 J , ST ART-I N DEX LTR I AN GLE 1 ) ? 

X S * — X D [ £] ? . 

V S : s v D [ U ; 

V.ir.'V, 

PROCEDURE PJP-C; 


I :=CFREE-i ; 
f»p : = OPC [ f J ; 

XE;=XCriJ ; 

YE:=xcm? 

INDEXsaZClI] ? 

END? 

CTREE j=BFKEE:=1 ? 

PUT-TRIANGLE -I N „C; 

RHTlE CTREE \.= 1 DO 

BEGIN ' • 

p Q p n . 

while' INDEX V= 0. AND OP V= 1 DO 

BEGIN 

IDX:= 3 *(INF 0 [IMDEX] )? 

FI L ARRAY C fl ,TpX) ? 

NEXT-INDEX : =b I MK ( I MDEX J ? 

IF IMSIDE-OFCXS, YS,Tl) THEN 

BEGIN 

IF INSIDE-OFCXF, YF,T1) THEN 

BEGIN 


OPC C CTREE*! 3 ** 1 ? 

END' . ■ 



# 


BEGIN • 

IF .INSIi>E..3FCXF,VF, ri) T H E N 

-» t. v$ 1 {’ y 

SINGLE-! M TERSE C 1’IOM C X , Y , l U T E R S E G * . lux J ; 
OPL L C FREE - 1 j : = 1 ; 

IF ( ABSC X S-.<) ) + ( AHS( YS-Y) ) > EPSiuO* U1 
^ * -I k f X r I r 'H'.X iVDfclX ) : 

ELSE 

BEGIN 

C ri 0 P — M I ■) 0 IiE ( N E X r-INDEX , IPX) ; 

END; 

F, a n ; 

P 3 P-C; 

FIND? 

PUT.lN.JUOP, XF, YF, 0) ? 

cfree:=cfrke-i; 

X s : = x f ? 

v s : = y E ? 

E N D ; 

SIDES J=BFKEE-1 ? 

D 0 _ V I f, M I N G _ f R A N S F .1 R M A T 1 3 N t S I D £ S , X ri t S 1 D FI S ] , Y 8 I S 1 0 1 fa J i ; 
N'R J : =1 STEP 1 UNTIL SIDES DQ 

begin ' ■ . 

. DQ-VI KWI NG-TRAMSFQ RM A Tt ON ( OPB { I ] ,XB[IJ ,YRll] )i 

K N D ; ■ . . . 

END; 

s E syfgH? , “ SE:i,j " t,f:M " £PSE "' , “ ,i! 

R|AL^k'y;BDOLEiriNTERsecx; INTEGER iox; 

BOOLEAN MARGINALLY -CROSS; 

REAL Xi,Yl; 

. »tfipfci?? S5: '" LSE ' 

YP:=YD£IPX-21 ; 
x 0 ; -XD I ID x-i 1 ; 

YO 5 = YD f T D X - 1 J * 

C HECK — I INTERSECT I ON ( X , Y , IN TERSEC D J 


IP INTERSECT THEN 

BEGIN 

IP ( A-BSCX-XS) f ABS(Y-YS) ) > EPSILON 
A 'ID < ABSCX-XEI+ABSf Y-YF) ) > EPSILON THEN 

PEG IP 

CO TO LAST; 

END • ■ 

ELSE 
■ BEGIN 

X 1 : = X ; 

Y l ; - Y • 

MARGINAL L i —CROSS; =f RUE; 

END; 



THEM 


X*tfi *> 1 

INTERSECT' 


4-.V ’ 


END; 

XP ; =XD't ID X J ; 

Y-p • = Y D C I D X ] * 

OiECK-j MTERSECT ION (X,Y, INTERSECT); 

IF INTERSECT THEN 

BEGIN 

IF (ABS(X-XS)f ABSI Y-'YS) ) > EPSILON 

AND ( ABS(X-XF)tABS(Y-YF)) > EPSILON THEN 

BEGIN 

GO t'3 LAST; 

END 

ELSE 

BEGIN 

XI ;=x; 
y I * = y * 

M ARGtftl ALL Y.CROSSts TRUE; 

END; 

'END; 

xo:=xotiDX-2 l ; 

yqs=yd Jidx-2) ; 

CHECK-INTERSECTION (X,Y t INTERS! 

IF NX) T INTERSECT AND MARGINAL! 

BEGIN 



- o ■: meets ' t-.Ya ooints- ( x s 
i le connects 1 . 12 00 1 nt s» 
erseet is traa if o o 1 n t 
. *1 1 tu n 1 in 2 s 2,1 uen t s . 


i ;!' : 'M:,A,U r2 ' u r l1l[,v l#nN2,MAXi,MAX2; 

f ' , fi:P 5 KCT: = i*RjR; 

n:-u y")-yp)*(XF«xs) )-H X3-XP).*(YF 
if A HS ( D) < 2 PS I LON THEM S3 Ti'bA 
Cl :=(YS*XF)-(XS*YF); 

C2: = (YP*XO)-(XP+.yo); 

X;=( ( ( XO-XPJ »C1 )-((XF-XS)*Z2))/D; 

mi.ni :=xs; 

>• A ,v 1 : = x: F ; 

if- XS > XF THEN 

BEGIN 

f ’AU:=xs; 

i'MHi:=XK; 

end? 

mi N 2:=Xp; 

M a x 2 : = X 3 ; 

IF XP > XO THEM 
BEGIN 

MAX2:=XP? 

MIN2:-XQ; 

E W D * 

IF X < (MINI -EPSILON) DR 
X < (MIN2-EPSIL0N) jr 
X > (MAXHEPSILON) DR 
X > (MAX2+EPSIL0N) i'HEN 
a * 

y : = ( c t y 0- f /p ) *c x ) - ( c yf- y s ) * zi ) ) /o ,* 
minuses? 

MAXI : = Y F ; 

IF YS > YF THEN i ' 

BEGIN 

F A X 1 : =YS; 


IF Y < (MINI -EPSILON) OR 
y < ( Ml N? -EPS I LON ) DR 

Y > (MAXI +EPSILON) DR 

Y > ( MAX2+EPSI LON ) THEN 

LAS T J I N r E R S E C T : = F A L S E ? 

1 ) r ^ 

PPdf'KPUKE CHOP-MIDOLEUMDEX, IOX) ; INTEGER INPEX, 1DX; 

with index one can net the location# In the list named 
•".Into", where Information of tie triangle that will be 
a sen for comoarision after chooplng the line with th* 

orient trtanalle . ' 

a .1 1 n idx or.e can get the locations , in the ' d" buffer 
.mere information regarding tne 1 co-ordinates of the 
current triangle tnat is going to oe used for chopping 

tne line 

q lonal variables xs,y$,xf ,yf 


PEAL X#K#0,Y#TEMP; 
BOOLEAN INTERSECT? 


1 f J k . 1 S ( * - X s ) + A (\ S( Y-Y») j < K p 1 i.H.i .ME 

ht’ii If; ■ ■ • 

IF ( A B S t 0 - X F ) + A 3 S (■ V - Y F ) ) < EPSTLILi THEN 
BEGIN 

OPCI CFREfi-i ) : =t; 

ft', N 0 

FlSE 

BEGIN 

puT-im-bu , j, y,c>)? 

XS:=U? 

Y S : = V ; 

END? .. 

t: n o ■ 

t;bss • • • 

BEGIN 

IF- (ARS(U-XF)+ABS(V-YF)) < EPSIL.O« THEM 
REG I M 

3PCCCFRSE-1 )I =1? 

PUT_1 Y-CC/! , K, Y , INDEX) ; 
ft: no ■ ■ 

ELSE 
BEG I H 

PUT-lN-CCl , J, u INDEX); 

?UT-IN-C(2, X, i , INDEX ) ; 

' trMD? 

END; 


END; 

E N D ; • • • 

INTEGER PROCEDURE SIGN— 0F( X) ? REAL- X; 

SIGN— OF ? = 0 J 

IF X < “(EPSILON) THEN ST GN-[)F: = -1 ELSE IF X > EPS1.LJN THEN 
.SIGN— OF s si ; 

^Ro6eDURE D0U8LE-I N I’RSECTI ON ( X , Y , U , V ; INTERSECT, IDX) ; 

NAME K,Y fU ,v , intersect; 

REAL X, X V; BOOLEAN INTERSECT? INTEGER IDX? 

BEGIN 

XP:=Xf>UDX-2] ; 

YP: =YD C l.DX-2 J ; 
xo:=xdi lux-u ? 

' v P : - Y D [ I O x - 1 J ; 

C i i KCF - 1 NTEP.S EC T 1 0 ,m ( X , Y , I N P S R S ftlC T ) ? 

xp;=xi»rir.xi ? • . 

V ‘- 1 : = YO ( I DX] ? 

ir intersect then ' - 


i > >■; (* * 


i-: on 


CHftGCK -IN reRSECT10N(U,V, INTERSECT)? 

I ft INTERSECT THEN 

BEGIN 

I N Tft£ RSEC T : = ( AB S ( IJ -X ) 4- ABS ( V- Y ) ) > EPSILON? 

IF INTERSECT THEN GO TO LAST? 

END? 


ELSE 

BEGIN v 

CHECK-IN TERSECT ION (X, I, INTERSECT) ? 

IF NOT INTERSECT THEN GO TO LAST? 

E ; < D ; 

X Q ; = X 0 C IDX-2) ?. 

YO: -YD C IPX"' 2 J ; 

CHECK— I NTERSBICTl ON ( U # V » INTERSECT)? 
l!iTERSftCCT: = IN TERSEC f AND C ABS C U-X ) + ABS ( V- Y) ) 

LASTS . 

END? 

CROC ft; DOPE C f , ft: A R -SC RE ft: a ? 



BOOLEAN PROCEDURE INSIDE— OF ( X , Y f T) ? 
REAL X,Y? . ' v r 

RSAL ( ARRAY T? 

O «#.*># It JJ . V. _ _ . . . g i 




ft KG- IN 

INTEGER 1,J? 

RHBOHT? 

ft - ! |R I : = 1 STEP 1 UNTIL 10 00 
FOR dm STEP 1 UNTIL 60 DO 
BEGIN 


OUTCHARCCHAR(O))? 

BREAJCOUTIMAGE? 


> EPSILON? 


■ X < 1 . X-i l v ) -J;i 

» < ( YMj.ii-R PS LI, JR ) )R 
:< > ( X M AX t FP S f fi OR ) OR , 

\ > ( V ' A X t £ P S I L, .1 0 ) r H K N 
MJTO MST; 

X I :=T[ l , n ; u : = T 1 1 , 2 ] ? 

>^=;U2,1}; v 2 : =T 1 2 , ?-j ; 

X 3 : - J [ 3, J J ; Y3 • =t n , 2 J ; 

TEMP :ssj GN— TES.T ( A , V , XI , Yl,X2#Y2); 

| tkmpbo phew go i’ri las j'-iur^W;; 

X f, , l f *- ■* 1 p , >. = sic _ t t; s r c ;< 3 , y i , x l , y i , x ? , y 2 ) r ri k n g o r j i. h s i ? 

: =s i GN„res r i a , i , xp , t ? , k j , t n ; 

IF fKMP = G ? H £ '■ v i 0 ]’ 0 C.HSr.'JUr.jru*:? 

IK }*■*%, StGN.TESTCXJ , Y 1 ,X2,Y2,X3, YJ) T h^.m GOTO i.ASI? 

<EMP: = si.GN-rEST(X, y,xj, Yi,xi,yn? 

It iFvrPrp PH E'N GO I’D LAST-SuT-ONE? 

i' .PVT * SIS.N_PEST(X2, Y2.XJ,Y3,X1,Y1) T H £ N 

uAb-I^BOf^ONK: l N ST. DE-OF 5 =T KUE; 

oast : 

£Mi ; 

pfjceduue dot-message? 

3 £ G J N 

OuTT!TXT( "RESPONSE !* H A 1’ 5 f D U .HAVE T V P £ D 10 IS 1 N A P.PKOPR 1 A L E“ ) ; 
OUT! MAGE; 

UUTTEXT ( h TYPE ONCE AGAIN 'YES' OR 'HD' IN TTY"); 

00T1MAGE? . ■ 

END? 

PROCEDURE I NI T— SEGMEN j’S ? 

BEGIN’ 

0 K L E T E —A LL-SEGM E N T S ; 

UPDATE-DISPLAY? 

BFREE : -CFREE J =DFREE : = 1 ? 

SET-ITM-TO-IDENTI I’Y; ' ■ 

END? 

PROCEDURE MOVE-CURSOR tX, Y) ? 
integer x,y? 

BEGIN- 

OUTCHARCCMAR ( 29 ) J ? 

TRANSMI P— COORD I N A 1‘ES ( X , Y) ? 

OUTCIURl?HAP( 31 .) ) ? 

HR-RAKOUTIMAGE; 

EDO ; 



•i IRE FRAME 


TYPE DISPLAY OF THE OBJECT") 
'YES' OR ''NO* IN TTY") ? 


RESPOND BY T Y P I N 


W I RE— FRAME: = FALSE 


OUTMESSAGE? ’ 

GOTH LOOP 1 ? 

END? 

OUT TEXT ( "DOES l' HE OBJECT TO BE DISPLAYED HAS CLOSED SURFACE 
) ? ’ ' ■ 

DHTIMAGE; ■ . 

QUTTEXTC "RESPOND HY TYPING 'YES' OR 'NO' IN TTY" ) ? 

OUT I MAGE ? 

L 00 P 2 5 IN. I MAGE? 

CH;= INCHAR? 

IF CU= ' Y ' THEN 

:losed-sorfaces=true 

ELSE 

IF C H - ' N * THEN 
BEGIN 

CLOSED-SURFACE: #FALSE? 

GOTO JWW 

END 



rj ‘ 1 T T EXT ( " A f< £ V n J U 5 f M G IMS TA M C E 
(."'T’fEXTi "KHM: I'TVIS 11 V ! [J .< PR in 

ou r i \ age; • 

< 1 *• '!• E x r ( " ,v s P ond by: r y ? i o 3 ' yes 

OUT T f.i Afig ; 

LOOP 4: I \ ! I M A G E ; 

Cii: = JijChar: 

IT CH='r THEi! MlDOE^—FbAGr^TRO 
E l S !•; IF C H = M ' rHg M M I I 3 FT tf _F I. AG 

ELSE 

BEGIN • ' 

OU T MELS AGE; 

GO TO i, 00 Pi; 

end; 

£ "i b 

EbSE 

BEGIN ' 

OOTMFSSAne; 

goto LOOP 3; 

END? 

JUMPlCLKAfUSCflEKM? 

EPS IliOM ; s , 0 000 1 ; 


T K A r j S F 0 H Ni A T I 0 H " } f 

KA J ; 

' UR 'NO' |N I ( y " ) 

: = F A ! . S E 



. } 


IS SPHER'£ * SI 


Tt;i 


kj H A i 


AL PROCEDURE RU30DT? 

I '-hi. Cl. ASS GRAS? 

BEGIN 

I NTEGER NS/S,MHS,R,1, J, JMlrJUS; 

R EAb !' T r A , D E L 1 1 : A , C T , S T , < , Y,Z; 

REAS ARRAY j I IE* l : 2 5 j ; 

REAL. ARRAY XPRES, YPKES, ZPRSSCQlZSj ; 

REAS ARRAY XMtjX i' , i N EX V , ZNZ X £ L 0 : 25 J ? 

Ri'.AS ARRAY AX,AV,YiLU 1 : 4 J ; 

PiMiCEOORP SPHERE; 

BEGIN 

FOR • J : =(> STEP 1 UNTIL) N J $ DO 

BEGIN 

D QwC 0 R R g N I’ - r R A N SF J M A f £ 0 M ( U , Y 1 H f J 1 , Z i N [ J J J i 
KPREStJl ; = V P T x ; 

YPREStJj jsVPTy; • 

ZPR£S[,f l jstfpTZ; 

E n i> ; 

T I T A : - 0 * 

for' i jsi STEP I UNTIL MHS DU 

BEGIN 

T [ T A : = T i. T A t D E S % T l F A ; 

CT;*:OS(TX TA) ? 

ST:=SIN(T1TA); 

FDR J: = 0 STEP 1 U M TIL N V S DO 
BEGIN 

x : = z t n C J J * s r ; 

- Y I n t J 3 ; 

Z ; = z. I M C J 1 *CT; 

DO-C U RKEN I — TRANS FOR MAT r ON t X , ¥ , Z ) » 
■XNEXTlJj S«VPT<; 

. TrEXTUJ ;=V'PTY; 

Znextui ;=vp rz; 

F N o ; 

FOR J; =1 STEP 1 UNTIL HV S 
BEGIN ‘ ' 

JMlNUs:=J-l ; 

AXf 1 J :=XPRESCJ MINUS! ; 

AY L 1 I :,= fPKES C JMINUSJ ; 

*2. [I i :s£PHE5[ JMINUSJ ; 

AX [2 3 :*Xpr<BSCJJ ; 

A i t. 2 i : = YPHEsr J I ; 

AZ [23 ;*ZPRES[ J] ? 

AX [3 I :=XtNEX T [ .1 )j 
AY [33 :*lfNeXTCJ.J ? 

A Z [ 3 J :=4NEXr[J3 ? 

AX [43 : =» X N K X 1 1 J M a N U S J ; 
f \ Y 1 4 J i=YNEKTC JMINUSJ ; 

A 7 . [ 4 3 :=ZNEXr[JMINUSJ ? 

POLYGDNCAX, AH, AZ, 4 ); 

END ; 

FOR J;=0 STEP 1 UNTIL N\YS 
BEGIN • • ■ 

XPRESIJJ :=XNEXrCJJ i 
Y PRES LI 3 JslfNEXT I J] ; 

ZPRESLJJ taZNEXflJ] ; 
end; ■ 

END ; - 

end; 

St TUP«VIFWPLA«ECO. 0,0,1 ,1,1,15^0,1,0); 

T-PROJECTI UN.PaRAviETERSC 0 ,0,1, FALSE) J 

m ' o 12,-12,12); 

, ■». ■ \ v * ■ ■ 


DO 


DU 


SET— W I N DON ( - 1 2 , 1 2 f "1 3 
SET-VIEw-DEPTHIO; 30^; 

SET-V lErtFQRI (0,700,0, 28)),* 
SET— DEPTH-PLAGSITRUE, TRUE) ; 

Si Cf » «Mk ^ (k " 


N V S I * 2 5 ; 
NHS;»'N’/S*2; 


TlTAtsO? 

DEL “ ‘ 


•3*1 41 5926535 /M/s? 
STEP 8 UNTIL MVS OO 



PROCEDURE RUrtHUT; 


T t !Ki,' Aii 
J’fRnAL CLASS 
AG BEGIN 

i. mteger l \i s . 

REAL TiVA,DEf 
:ai. array i'T.vfi 


MtiS, RA 


, RB 


X f J 0 3 P f j U 3 j 


ltH’a,c r, sr, x, t,z; 


DJ 


v . . - 1 5 j .21 V-t 1 ; 1 5 J , 

XPRSSl 1 : 1 ‘3 ] , YPRESE1 : 15 I ,ZPRGSli s l 53 , 
xwkxtu : 13) , Ynextu ; 1 5 3 # zmextu : I5] , 

AX [ 1 : 4 J , Am.M) ,AZU !4) ; 

SETUP-V I EaPL AU £ I d , 0 , 0 , l , 1 , 1 , 2 3 , U , 1 , 0 ) ,* 

S K T „P it 0 J F C r I D N _P A R A *, E f E R S ( 0 , 0 , l , F A L & R ) ; 
Sb;‘I„t)fc:Pi.’H*FL,AGSC TRUE , TRUE) ; 

r„w I Mi>n« (-25,25,-25,25); 

St\T_VI Et«,'_l>EP I’ti I u , 5 0 J ; ■ 

SL'I’^V 1 K tf P 0 R r ( 0 , 7 U J , 0 , 7 8 0); 

M v $ : = 1 5 ; 

nhs;=2*mvs; 
k a : s i. 5 * 

f< b : s 5 * 

T '£ TA : =0 * ’ * - 

LELTI T A I =5 , 2 8 i l d5 3 U 7 /N V 5 * 

Flip. J ; *1 STEP » UNTIL MVS 

0 t. G I N 

TlT.V: = n. TA+DCLTITA? 

YIN l JJ :*Y :=KB + CDStn T\) ; 

Z I M t j j :=Z:=KAfRB*Sl JCTUft); 
DO-CnRREMl*., TRANSFORM* II 00 ( 0 , Y , Z) ; 
XPREStJJ : - VPT x ; 

YPRESf JJ : = vpty ; 

ZPRESCJJ I-VPTZ? 

END; 

TITA:=0; 

OELT.ITA 1*6 ,28 j 1053O//NHS* 

FOR I ! -I STEP 1 UNTIL NHS DJ 
BEGIN 

. TlTAtafX TA+UELTITA; 

CT: =GJS(T1TA) ; 

ST I -SJ.N ( f 1'1'A) ; 

FOR J : = i STEP 1 UNTIL N V§ OQ 
BEGIN ■ 

X S=2IN [ J3 ♦ST? 
y : = Y I n C J ) ; 
v • =2 [ fj ( j j * c T ? 

f> 5 . C 0 R R E N f - £ R A N S F J R *4 A T 1 0 N ( X , Y , Z ) ? 
X N F. XT L J ] : = VPTX? 

YNEXTC J I :=VPTY? 

znex r £ J 5 : =vprz; 

END; 

FOR 
BEGIN 

IE J 
Ami 
A i C i .1 
AZC1 I 
&X [ 4 J 
AY [43 
A/.F41 
AXCJ1 
AY C 3 I 


J x =c l STEP 1 UNTIL MVS 


=0 vs THEN JPLJS: = 1 

=XPRKS( JJ 


ESC J 

-YPRESDJ , 
sZPRESCJl? 
=XNEXTCJJ ; 

= YNExr [ Jl ; 
=ZNEXTCJ]; 

sxmext t jplusj ; 

: = Y N £ X T [ J P L U 5 1 
AZti l : = ZNEX T [JPLUSJ ; 

AXC2 l-jsXPKESt JPLUSJ ? 

AY C2J ;=YPRES[ JPLUSJ ; 
k % C 2 1 tfcZPRESC JPLUSJ ; 
POLYG0NCAX,AY,AZ,4)? 

END? 

FUR Jt=l STEP 1 UNTIL MVS 'DO 
BEGIN - .. , , t 

xpresljj :»XNExrCsiJ 

YPjRESIJJ S*Y*<CXr£ JJ'I 
- ujissZNexr jh 


00 

ELSE JPLUSS 


ZPREStJl SsZNS 


=J+l; 



tyre. sib; 


, t* L l ! t. 


;XT!: 
; r a ? 


RUB OUT; 


end 


Rf-fti- PRsJCEPU RE 
Pi M, CLASS GRAS; 

S' $ if* i. 1 ? 1 **i 

i NTEGEK i- A , R 8 , 1 .J,Jpf,US; 

UC/U. I' r r A ,-f)£L? I fa , Cl , S T , X , Y , Z; 

■-M' At, ARRAY l I; ,/J N , 

X P R ES , Y P R ES , Z P R E S , 

XRRXT , Y NEXT , .\T i 1:101, 

AX , AY , A £ I 1 : 4 ) ? 

SETUP— V i ErtPLAWE (O,O,0,l , 1 , l ,25,0 


" * J, . ^ n 

S f r„p RO jECrij,, -H A k A *'| k r E r s 0 ^ 1 , t' hi S £ J ; 

SET —D E P l 1 H _ F L A G S ( X A U E , T R i) £ ) ,* 

SET _R I NO ON C "25 , , ~25 , 2 :> ) ? 

SKT-V IFN-uRPi'H( 0 , 50 ); 

St T_V UvdPrjR r(0 , / 8 0 , ? ! ,780); 

RA‘=1 5; 

RH :=S; 

UKLrr i’A:=u.-M jl 8530 7/1 2 ; 

TiTA:=D£l,r] Y a ; 

FOP. J : = i STEP l UrtTIb 9 OJ 
01 GIN 

TlTASsT IfA+DeLTI TA? 

YIMtJ T : = Y ; = R B * S f, N i r I r *\ ) ; 

7, in L JJ : = i;=st<A-.<tUcosCriTA) ; 

OO-CURRE 4 T-TRANSFQ R 1 A T l OM ( 0 , Y , Z ) ? 
XPRESCJJ : = VPU; 

YPRESCJ*) ; = VPTY; 

ZPREStJJ :«VPTZ; 

END? 

tita: =0? 

FOR I :=1 STEP 1 UNTIL 12 DO 
BEGIN 

T I rA:*Tlf A+DELTITA? 

CT S -COS ( T IT A ) ? 

st : *5 lnc n r a j ; 

FOR J S ~ i STEP 1 UN rib 7 DO 

BEGIN 

X:=Zl,i[.msr? • 1 

Y : = Y I a r ,1 J ,* 

? t i ~? 4 1 iM l j) * c r * 

D J-C JRREN iVffeA N S F JR M A T I ON ( X , Y , Zj 

XMEXTCJi := vptx; 

YNEXTI Ji : = VPTY? 

Z m e x P t j j := vptz; 

E N D i 

FOR J : = l STEP 1 UNTIL 8 DO 

BEGIN 

jpf,US; = j + i ; 

A Af.1 j : = aPres C J] ; 

AYU J : = YPREStOJ ? 

AZCIJ :=ZPR£Sf J] ? 

AXC4 1 jsXNEXIlJJ ? 
ay U J : = Y N E X f f J J ; 

A7.C4 ! jsZNEXTt J) ? 

A A C i 1 S*XN£Af CJPLUSJ ? 

. A Y f 3 1 ; = IN£X r C JPLU31 ; 

AZ131 :-ZN£XTtJPLUS] ,* 

AXt2i : = XPRESC JPbUSJ ? ' 

A Y 1'2 1 : “ YPRES [ J PLUS] ,* 

AZI21 ssZPRESt JPLUSJ ? 

POLY SON (AX, AY ,*AZ , 4X? 

END? 

FOR J:=i STEP 1 UNTIL 9 DO 
BEGIN 

XPRESUJ JsXNEXTt J1 ; 

YPRES U J JsYNEXTtJ); 

ZPREStJJ jsZNEXTCJl ? 

END?. 

END? 

UPDATE-DISPLAY? 


GNU " 




mfti 


i'i-.x t’ fsup; 

INTEGER TUTAL— PO l ■' TS, T 0 1’ AW’ ACES , 3 IDES , I 

R i* A b arkA y \ l ;■> 1 1 : ~> u j , y i n [ i : .5 9 j , z l , C i : s o j 

I N TGGE R A RR A Y P i l : l o , 1 : h 1 ; * 

Rf-Ab ARRAY mi ;S‘ij , if A 1 1 :i9) ,ZAU:591 ; 
REAL A R R A Y AX ( .1 : 5j , AY 1 1 : 5 J , AX( 1 : S J ; 

1 u ft-GER ARRAY N (I : 2 0 J ? 

character c«i; 
procedure house? 


FOR j; = l STEP i UN.ru, I'UTAU-PUJ.jTS ut) 

BEGIN • 

DO-C JURENr- TRANSFORM* CIUH XIN ill , YT GU i j 
XA [ l ) : = vp rx; 

YAf n : = v p r y ? 

Z At U :=vprz; 

E NO; 

FOR IJS1 STEP i UNTIL TOTAL-FACES DU 
BEGIN . 

•w e f a n* c * 3 ; *i- r t 1 * 

FOR ‘Jjs'l STEP 1 UNTIL SIDES DU 


TEMP : = P 1 1 , J J ? 

AXC Jl : =*XA t TEMPI ? 

AY C JJ 5 = YA I TEMPI; 

AzcjJi = ZAire.MPJ; 

END? 

POb t SOW (AX, AY, AX, SIDES); 

END-? 

END? 

SETUP-V LEWPL ANE (0,0,11,1 ,1,1,32,0,1,0)7 
SET-PROJECTIOM-PARAMETERSl O ,5,1, FALSE ) ? 
SET-DEP TH— PL AGS (TRUE# TRUE)? 

S E T _ W 1 N L> 0 «1 ( - 2 5 , 2 5 , - 2 5 , 2 5 ) ? 

Sc T-V I E ^ -DE P f H C 0 , I o 0 ) ? 

Sfv T-V I Erf.POR l’ ( D , / a 0 , Q , / 8 0 ) ? 

1 . i SPEC T HEW iNFlL'ECHUUSES.OAr" ) DO 
begin • 

BUF:-6bANKS(20),v 

OPEN ( BtJF ) ? 

I NT. MAGE? 

IN I MAGE? 

Ti i'Ab_PUlNTS: = lNlNr? 

FUR T : — 1 STEP 1 UNTIL TOT AL-POINfS DO 
BEGIN 

IN IMAGE? 

XIN I I] : = I N I Ni T ? 

YIN i li s = INI NT? 

Z 1 N 1 1 i * = I N 1 N T ; 


TOT A l, „F ACES J = I N I N-T ? 

FUR I : = 1 STEP i UN rib TOTAL-FACES DO 

BEGIN ’ . ‘ ‘ 

I NT MAGE? 

SIDBSs= N C I J T- 1 M I N r ? . , . 

FOR J ; — l STEP l UNTIL, SIDES DO P £ l , J J i »I MINT? 

END? 

CLOSE? 

END? 

CHEATE-SEGMEWTCl )? 

HOUSE? 

CLOSE-SEGMENT ? 

CRE/ITE—SFGMENTC 2 ) ? 

HOUSE? . ■ 



Cl USE-SEGUE i " ; 
t i- l*'< I "i m TE _HJ Dl.-vtb? 

I : = o step i (MTU, 4 O'J PosT-SEGMEim v ); 
i't P ATK-DI SPLAY? 

1-tiOPJ :MOVb..CUrtSJP(flOO f 33D); 

CuTTKXTC "PRESS <CK> m"}; 

“UT IMAGE; . 
l*u)Vt:-CUK5l)R( KOU , 3 JQ ) ; 

outtextc "con n nit:"); 

OUT IMAGE; 
l fc IMAGE; 

. CLEAR _SC« EE N; 

POP l : s O STEP 1 1-lMTir... 4 0 3 UMBDST— SEGMfc’N T l 1 ) ! 
ULTTl'XT( "DO Tdl! JNf mXMEICA.T IONS l#i THE DlSPLM”) 

OUTIOAGfi; 

ltsttextc " type 'yes' or 'to' in m")? 

GuTlM AGE ; 

LOOP 2 ; I N I M A G £ ; 

C t i ; ~ I m C hi A h ; ■ ■ 

IF CH = ; Y ' THEM 
BEGIN 

OUT TEXT ("HON VI A N If SECANTS l>0 YOU WANT TO "J? 
OUTl’F.XTCaE DISPLAYED"); 
out image; 
in image? 


OUTf EXT ( "TYPE THE Ji A M E S OF THE SEGMENTS- THAI' "); 
OUT TEX. ft “ARE TO BE DISPLAYED*); • 

OUT I MAGE* * 

T u I mage; 

FUR I : = 1 STEP i UNTIL, TEMP DO PTIST^SEGMEN l’(INiNi'); 
UPDATE-DISPLAY; 

DRArt.tf I EXPORT; 

GOTO LOOP l ; ■ 

END ' 

else: 

BEGIN 

IF CH=*,'!' THEN GOTO LAST 

ELSE 

BEGIN 

OUT MESS AGE.; 

GOTO LOJP 2 ; 


END; 

End; 

last; 
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? 
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>1 1 


fc, A 
F > 

■!' i- 


' : i t 1 1 • I . j v*’ . s 1 <i ; 

’ ISPLAYS HOLLOW CU3S. MADE 'BY MNSTAM T 

WMATIUnS OF A SOLID' COLE; 

t ER ?>; AL PROCEDURE RUNOUT; 

T £ t\ * At. ■ CU A S S J R A S ; 

aS BEGIN ■ ' - 

T t , X !’ toUF,* 

INTEGER TOT A L— P »i vfS, I’D T A L-F AC'FS , S 1 DES , I , J , J E MP ; 

P A L AkRAY Ari«,XJ..\,,£|«Us8J; 
i i’iTEGF^R ARRAY P 1 1 ; 6 , 1 : 4 J ? 

REAL Kf'i.Zt , nZj 

Kii.Ai, ARRAY AX, A Y, AS l 1 : 4 j ; 

PROCEDURE BuOC’K; 

. begin 

for l:n STEP l UnI'IL TJ i’AL-FACES do 

BEGIN 

FOR j;=l STEP 1 UNTIL SIDES DO 

BEGIN 

rEM.p:=Pii, jj ; 

X:=XIN [TEMPI ; 

CsfIMt i’E«ej? 

L ;.•£ In 1 TEMPI ; 

OO-CUPKErU -l’R AM3F0RMAI I UN IX, V ,Z)i 
A X. [ J i : = V P T X ? 

. AY r JJ : = '/pxy ; 

A£ [ J] : = VPTZ,* 

• end; 

POLYGON (AX, AY, hZ~, SIDES); 

END ; 

END,* 

SETUP-VIEWPLANEl 2.5,2.5,2.5,1,2,3,32,0,1,0); 
SET-PROJECT l ON —PARAMETERS (0,0, 1 , FALSE ) ,* 

SET-DEPTH -F L A G S ( T R U E .TRUE) ? 

SET-WINDOW (-5, 5,-5, 5); 

. SET— V I E W— DEPTH (0,50); 

SKT-V I EWPURKO, 7 80,0,733) ; 

TOTAL— POT. NTS.* =8? 

TOTAL-FACES: =t>? 

sides. s 4; ■ 

INSPECT NEW IwFILEt "HOLLOM.DAT" ) 

BEGIN 

BUF:-BLAVKS(20) ; 

OPE H ( 8UF ) ; 

inimage; 

FOR T:=l STEP 1 UNTIL 

BEGIN ■ ■ 

I MI MAGE; . 

XIW( l j : = inint; 

V I N I n : a I N I N T ; ■ 

- ■ Zimn :»1N1NT; - • 

END; 

FOR 1 : = l STEP 1 UNTIL TOTAL— FACES DO 

< ■ BEGIN ■ 

IN IMAGE; • . , ' 

FDR J : =i STEP t UNTIL SIDES. DO P £ I , J ) J *I<UN i ? 

END;. 

CLOSE; 

E N t » ; 

LO0P2 : BLOCK ; 

Th ANSL A TE— I l 4 , u , u j. ? 

LEG ISi-X FORM; 9L0CK ? ENO.XFQRM? 

TRANSLATE— t CD, 4,0) » 

EE G IN— X F 0 R'M ? BLOCK ; END— X FORM ? 

TKANSLA TE-t U) , 0 , 4 ) ; 

BEGIN— XFORMT SLOCK ; END— XFORMf 
TRANSLATE-I (4,0,4); 

BEGIN— X FORM; BLOCK; END— X FORM; 

TRANSLATE*.! (0,4,4); 

BEGIN— X FORM; BLOCK ; END— X FORM; 

ND-XFORM; 

*n«B0U(t+**i V ■»»■-■* t ** * * ‘ 

BE G 1 At -X FORM? BLOCK; EM D-XFORM? 

SC ALE-I ( 3 , 1, I ) A 


DO 


TOTAL-POINTS DO 




BE: 




f Cfti.il', _] it ,3,13; 

J ! A-n SLA I’F _l ( a , 1 , 4 ) ; 

B r G 1 ■ „XFOR : i ? Bli i i C K ; F. ii 5 - X F a R S « 

aAM'j (i,3,o? 

1 RANSLATF..I U, 1 ,4 ) ; 
i 1 E c; 1 _ X F n I ( Nr, ; rt L U C ft ? T -t 0 - X F I) R 't ; 

SC ALE-J (1,3,1); 

Thai,. si, ft IE„T U , 1 , i> .) ; 

H t- G l i „X F 0 k ; R (, 0 c K ; k *• 0_XF a R S ; 

BCALE_j ( 1 , I, , V) ,* 

T |- AT- C ! i ft T F _ ( ( l- , ft , 'i ) ? 

t> FG1 *i—X FORM? B L U C ft ? E ft D _ X F 0 R M ; 

SCALE«.I (1,1 ,3)? 

T r ft ( , S t > A 1‘ F „ I (4,i),] j; 

BEG IF _XKORM; 3 LUCK ;E jO_XFORM; 

SCALE,.! (1,1,3)? 

TKALSLA J’F_U 4 , I , O ? 

f'-FG i i i X FOR i r * aiiHCK; K.a'>_X FOR ''i ; 

SCALE.. I (3,1,3); 

Than $ ( , h rp_t u>,4, 1 ); 

B v G H ..A F 0 R - ; a L. n C K ; K L) «-X F a R M ,* 

FIiIMIN AfE—HIDlNG# 

POSI-SEGMENTIO);' 

Uf’DATF-DISPLAt? ■ ' 

MUVfc:«CURSUiU800,750) ? 

OUTTEXT t "PRESS <CR> TO ”); 

outimage? 

MOVh..CURSDlU800,7 20) ? 

OUTTEXT ( "COOT [NUE M ) ? 

OUT IMAGE? 

INI MAGE; 

ini t„s e: g m k n r s ? 

OUTTEXT ( " DO YOU tfiSH TO VlEw I HE HOLLOW CUBE ")? 

OUTTEXT ( " FROM A DIFFERENT LOCATION" )? 

OUT I MAGE? 

OUTTEXT ( " TYPE 'YES* OR >N J ' IN TTY")? 

OUTI MAGE? 
loupi ihumaue;- 

CHs = INCHAR? 

If CH~'i ' THEN 
■ BEGIN 

OUTTEXT C “SPEC IF. Y 'VIEW-PLANE NORMAL * IN INTEGER UNITS*'); 

nu riM age; 

i n i mage; ‘i ' t 

i\iX:=INI (J T; 

NK : = , INI NT? ■ • ■ , 

i j Z i ~ I N l N T ; 

SISTUP.V I EWPLANEC 2 . 5 > 2 .5 , 2 . 5 , NX , n Y, NZ, 32 , 0 , l , 0) 7 

CbE AR—SCREEN ? . 

DRA R_V f EXPORT; 

GOTO LOOP 2? 

, END 

ELSE ' ' • 

begin 

IF CH='N' THEN GOTO LAST 

ELSE 
HE GIN,. 

OUT.HSSS AGg? 

GOTO LOOP!? 

END ; ■ 

END; 

LAST: 

END? 


E N J 




H 6 4 5 
3. 7 2 1 
7 8 r » 2' 
6 3 14 

1 3 6 8 

2 5 4 3 
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«'• IS D£?uj . S [ H; 

.:vri-r:.A u PROCEDURE KU8UUT; 

S> I i\u C I, ASS GRAS?.. 
gras (.i-'c; 1.1-1 

Y EX ” f i J F ; 

' i ■ i TEGER T; 

REAL l’E -n' ; 

.REAL A R K A I • ■ 

t a, fY,Tz,#x, 3 y , 8 z , l x , l y , l z , k r x. , rt r y , r t l , f x » f i 

RR3U:4j ; 

PROCEDURE ClBE; 

BEGIN 

A„POLYGDN„3(.FX,FY, F2, 1 ) 2 
A.PQLYGON..3 Ql.Xr uY, Li, i ) ; 

A-POLYGON-.3CRTX, RTY,RIZ, \)i 

A-pql/go > i _ 3 1 , i x r ty, rz, i)i 

A_PQLYGlM_318X,»Y, 3 2, * ) ; 

A-POWG J J»3C«BX,rti<Y # aKZ f 3); 

END } 

INSPECT NEW t Nf FI L E C " DE M 0 „ 3 A i’ ” ) DO 

BEGIN 

B U F : * 8 L A N K, S t 1 5 3 ; 

0 P E N ( 8 U F ) ; 

Kurt X : =s 1 STEP 1 UNTIL 4 03 
BEGIN 

I NIX AGS; ■ 

TKC 1 1 :=I(UN V? 

TSf ill s = ININ i; 

TZ I £ 1 : = i n l N r ; 

END; 

FOR I :~i STEP l UNTIL 4 00 
BEGIN 

I NIX AGE; 

BXtl) J =XN IN f; • 

BiCIIJ j sini\T; 

BZ-fi l : = ININT? 

E N 0 ; 

FOR I:=l STEP 3 UNTIL 4 00 
BEGIN 

' IN I MAGE; 

LXUJ J = ININT; 

LYU1: = ININT; 

LZflJ :=1NINI; 

. end; 

FOR I : = 1 STEP i Uf^TIL 4 DO 
BEGIN 

INIMAGE; 

rtxlij :sInint; 
rtyii] :* r mint; 

Rrzm SalNlNT; 

END; > 

FOR I I = 1 STEP l UNTIL 4 DO 
BEGIN 

inimage:; 

. rim : s i n i n r 7 
mu ; = £ n i n t ; 

FZm; = ININT;. 

FOR ' I i = l STEP 1 Until 4 0-0 
BEGIN • ' , . 

INI MAGS? 

rrx 1 1 J : kIninT; 

RRY i I i : = I \ T N T ; 

RRZt ! J : =I.4lNT; 

, END; 

CLOSE; 

END? ■ • 

SETUP-VIEWPLANE(Q.5,Q.5,0.5,0,0,1 ,1,0, 1 ,Q); 
SET-PROJECTION .PARAMETERS ( 2 , 2 , 2 , TRUE) ; 

SKT-.DE P fH-FLAGS ( TRUE# TRUE) ? 

SET-VlEini—OEPTH (0 # 3) J • „ 

SET~WINfe)$WC-0. 25, 1.25, -0.25, 1.25),% 
SET-VIEWPORT CQ, 390. 390, 7 8 DO; 

CUBE! 



CuBEf 

SET#* 

SEf>‘ 



|| 

a ,ili 0 >;°’ >ryn 


n X # K n ¥ # 



0 .'Ti'i' T 1 " i’OP LEES ; " ) ; 

Oi.TiKAGK? - • 

wcvt .CURSOR ( *oi , 3 -if ) ; 
o.-rrKxTC’j.fitj pg i-;.r perspective"); 
mu tin age ; 

MOVfc .CURSOR ( 40-0 , 2 60 J ? 
tU'TTEXU " i'OP RIGH r: " ) ; 

I'UT-l MAGE; 

'■<! VK.CURr.0Rl.4b0, 2 10 ) f 

outtkxtc " iwo pour perspective" j ,* 

liiJ'l USAGE; 

*'1 VE-CUrS 0K(400, l 5 0 ) ,* 

'OUT I FX T ( " tiO i rOM LEE l ’ ! " ) ? 

oi t i wage; 

f- ' I j V h-C U RSUR ( 460,1 4 0 j ; 

1 i’T TEX f ( " THREE POINT P-E R S P-EC.T 1 V E " j ; 

OUT IMAGE; 

MOVE. CURSOR ( BOO , 390 ) ,* 

0 ! i T ! E X T 1 " P R E S S < C H > I' 0 " J ,* 

OUT IMAGE; 

MUVK.CURS0R(30C ,3/0); 

OUTTEXT("COUi’IUU£ H ); 

jOu r image ; 

i;» IMAGE; 

livli' SEGMEN TS; ' # 

SETo P.V IF.WPLAoE ( 0 . 5 , 0 . 5 , J .5 , 1 ,1,1, 1.5, 0,1,0); 
SET.PRO JECT1 Ofi.PA KA «1 ETE R5 ( D , 0 , 1 , FALSE ) ? 

SKT.W l NO Or) C - 1 , 1 , - j , i) t * 

SBT.V 1 EWPUR 1(0,390,390,790); 

Cube; 

temp :=SQRT( 0.5 ) ; 

SETUP.V IE W PL AN ECO, 5, 0.5, 0.5, 0,0,1 ,1 .5,0,1 ,0); 
SET— PRO JECT1 Gu .PARAMETERS! FEHP, TEMP, 1 , PARSE) ,* 
/ St T.V* IN DOW C u , V , 0 , 2 ) ; 

SET— V IEaPOR! ( 39 u , 780,390,7 80 ); 

CUBE? 

TEMP ; =TEMp/ 2 ,* 

Si‘,T— PP,b JBCT1 GS.pSnAVlET ERS l TEMP , TEMP , 3 , FALSE) ? 
3 t.T— WINDOW (“0.5,1 .5, -0.5, 1.5); 

SET-VIEWPORT CO , 390,0,390); 

CUBE? 

POST— SEGMENT ( 0 ) ? 

UPDATE— DISPLAY ? 

SET— V J.EwP0RT(390, 780,0, 393); . 

MO VE— CURSOR (400,360); 

UUTTEXT C " TOP LEFT:"); 

uot.image; 

MOVE-CURSOR (460, 3 40) ; 

OLTTEXTC "ISOMETRIC PROJECTION")? 
ootimage; 

MUVE.CU RSOR (400, 2b0) ,* 

OUTTEXK "TOP RIGHTS" )? 

OUTIMAGE? . 

MOV E— CURSOR (460,240) ; 

uul TEXT ( "CABINET PROJECTION" ) ; 

OOTIMAGE? 

K 0 VE— CURSOR (400,160) ; 

DuTX EAT ( "80 f TOM LEFT:"); 

outimage; ■ . 

MOV K.CU US OR (460,140) 

0 IS IT FXT( "CAVALIER PROJECTION" ) ; 

ou t IMAGE?. 

END; 

S. NT MALE; 
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